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ABSTRACT 


This  thesis  describes  the  conversion  of  four  computer  programs  on  the  Naval  Post¬ 
graduate  School  IBM  3033AP  computer  system  and  their  implementation  on  the 
MicroVax  2000  CAD/CAE  workstation.  The  existing  2-D  airfoil  analysis  programs 
DL  BLET  and  PANEL  were  extensively  modified  to  improve  the  user  interface.  The  3-D 
wing  analysis  program  VORLAT  also  received  an  updated  interface.  The  JETFLAP 
source  program  no  longer  resided  on  the  NPS  mainframe  and  was  reconstructed  from 
an  original  source  tape  and  program  listing.  This  program  was  then  converted  from 
FORTRAN  IV  for  the  CDC  6000  series  computers  to  FORTRAN  77  for  use  on  the 
IBM  mainframe  and  the  Micro  VAX  2000.  An  interactive  data  input  program, 
JETFLAP1N.  was  developed  to  simplify  data  input,  provide  error  checking  and  cor¬ 
rection  and  thereby  enhance  the  utilization  of  the  JETFLAP  program.  The  programs 
are  intended  for  use  by  students  in  basic  and  advanced  courses  in  aerodynamics  at  the 
Naval  Postgraduate  School,  however  they  are  also  applicable  to  a  course  in 
computaional  aerodynamics. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  every  efTort  has  been  made,  within 
the  time  available,  to  ensure  that  the  programs  are  free  of  computational  and  logic  er¬ 
rors,  they  cannot  be  considered  validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 
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II.  INTRODUCTION 


Current  aerodynamic  analysis  relies  heavily  upon  numerical  methods  for  estimating 
the  aerodynamic  coefficients  of  airfoils  and  wings.  This  thesis  was  undertaken  to  provide 
the  students  of  the  aeronautical  engineering  curriculum  with  a  series  of  computer  pro¬ 
grams  that  would  give  them  a  better  appreciation  and  understanding  of  several  compu¬ 
tational  methods  that  have  been  applied  to  classical  aerodynamic  theory. 

The  Department  of  Aeronautics  and  Astronautics  at  the  Naval  Postgraduate  School 
(NPS),  in  conjunction  with  the  Mechanical  Engineering  Department,  is  developing  a 
computer-aided  design  computer-aided  engineering  (CAD  CAE)  laboratory  for  use  in 
research  and  teaching  by  their  respective  curriculums.  The  system  is  based  on  a  network 
of  Digital  Equipment  Corporation  (DEC)  Micro  VAX  2000  workstations.  There  is  an 
ongoing  requirement  to  provide  specialized  software  (programs)  for  the  computer  net¬ 
work  that  is  usable  by  the  students  and  staff  to  support  current  and  future  courses  and 
research. 

At  the  time  of  this  writing,  several  aerodynamic  analysis  programs  reside  on  the  NPS 
IBM  3033AP  mainframe  computer.  They  are  in  various  states  of  repairl  and  due  to 
constant  software  and  hardware  upgrades  of  the  mainframe  system  some  programs 
provide  limited  output  capabilities2  while  others  are  becoming  unusable  due  to  compiler 
changes.  There  is  also  a  wide  range  in  the  amount  and  quality  of  the  documentation 
available  for  each  program.  This  thesis  seeks  to  remedy  a  portion  of  this  problem  and 
support  the  previously  mentioned  software  needs  requirement  by  providing  a  set  of 
baseline  programs  and  thorough  documentation  which  will  extend  the  life  of  these  val¬ 
uable  programs  and  allow  further  upgrades  and  eventually  the  incorporation  of  graphics 
routines  by  future  users. 

The  programs  contained  in  this  work  were  selected  on  the  basis  of  their  applicability 
to  the  present  courses  taught  in  basic  and  advanced  aerodynamics  at  NPS,  the  doc¬ 
umentation  available  and  previous  user  inputs.  They  were  revised  or  modified  with  the 

1  Source  code  is  not  available  for  some  programs,  in  particular  FL027.  Since  certain  output 
flags  for  FL027  were  set  in  the  source  code  and  the  user  was  unable  to  alter  these,  an  inordinate 
amount  of  unwanted  output  was  produced. 

2  Several  programs,  notably  FL027,  JETFLP  and  those  used  in  the  Aircraft  Combat 
Survivability  and  Lethality  courses  have  lost  their  graphical  output  due  to  software  incompatibility 
problems. 
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intent  that  they  be  used  for  preliminary  design  and  to  evaluate  the  changes  in  aero¬ 
dynamic  coefficients  due  to  changes  in  one  or  more  of  the  input  parameters.  To  this 
end.  the  following  factors  were  empasized  in  modifying  or  creating  the  programs  to  make 
them  easily  understood  and  utilized: 

•  Error  checking  correction  capability. 

•  Capability  to  make  multiple  runs  in  one  session. 

•  Capability  to  change  one  or  more  parameters  on  subsequent  runs. 

•  Utilize  a  standardized  interface  (to  the  extent  possible). 

•  Allow  user  defined  names  for  input  output  files. 

This  document  briefly  describes  the  basic  theory  behind  the  2-D  airfoil  and  3-D  wing 
analysis  programs  and  the  reprogramming  required  for  transfer  and  conversion  of  the 
selected  programs  from  the  IBM  3033AP  and  CDC  6000  series  computers  to  the 
Micro  VAX  2000  CAD  CAE  workstation. 

A  users  manual  foi  each  program  is  contained  in  the  appendices.  These  provide  a 
short  discussion  on  the  purpose  of  the  program,  input  requirements  and  constraints, 
program  operation  and  the  program  output.  A  sample  input  session,  input  data  file  (if 
required)  and  the  resulting  output  as  well  as  a  complete  program  listing  is  also  included. 

Project  results  and  recommendations  for  future  work  are  given. 


3 


III.  BASIC  THEORY  OF  2-D  AIRFOIL  ANALYSIS  PROGRAMS 
A.  INTRODUCTION 

The  following  sections  are  intended  to  present  the  reader  with  a  basic  understanding 
of  the  ideal  fluid  flow  concepts  underlying  the  2-D  airfoil  analysis  programs.  This  brief 
summary  contains  just  a  few  highlights  which  would  be  obtained  from  a  course  in  the 
fundamentals  of  aerodynamics  and  in  no  way  attempts  to  provide  the  reader  with  a  firm 
foundation  in  aerodynamics  or  fluid  flows. 

It  will  be  assumed  that  the  reader  is  familiar  with  the  concepts  of  velocity  potential, 
4>,  stream  function,  and  their  derivatives.  It  is  further  assumed  that  the  reader  has 
some  familiarity  with  the  concepts  of  the  basic  fluid  flows:  uniform  stream,  source,  sink, 
vortex  and  doublet.  Figure  1  depicts  these  basic  fluid  flows  and  provides  and  example 
of  how  two  of  these  flows,  a  uniform  stream  and  a  doublet,  may  be  combined  to  model 
the  flow  over  a  cylinder.  A  thorough  discussion  of  these  flows  and  their  properties  may 
be  found  in  most  aerodynamics  texts.  References  1,  2,  3  and  4  were  instrumental  in  the 
preparation  of  the  following  sections. 


Figure  1.  Basic  Fluid  Flows 


B.  PROGRAM  DUBLET 

The  type  of  analysis  used  here  is  a  direct  method  in  which  the  shape  of  an  ellipsoid 
or  airfoil-like  body  is  specified  and  the  problem  is  to  solve  for  the  distribution  of 
singularities  which,  in  combination  with  a  uniform  stream,  produce  the  flow  over  the 
body. 

This  program  provides  a  numerical  method  for  approximating  the  solution  of  the 
integral  equation  for  the  line  doublet  distribution  for  a  symmetrical  airfoil  at  zero  lift  in 
incompressible  irtotational  flow.  With  the  doublet  strength  known,  the  velocity  field  can 
be  determined  using  equations  for  the  stream  function  and  velocity  potential.  Once  the 
velocity  field  is  known,  the  pressure  field  may  be  determined  using  the  Bernoulli 
equation. 


For  this  problem  the  airfoil  body  shape  is  specified  asy  ■  Y(x).  It  is  a  closed  form 
which  has  a  finite  length  or  chord,  c  as  shown  in  Figure  2. 


Figure  2.  An  Airfoil-like  Shape 


Such  a  shape  can  be  defined  by  an  equation  of  the  form: 

0) 

This  shape  is  to  be  modeled  by  a  string  of  doublets  along  the  x  axis,  and  the  strength 
of  each  doublet  to  be  determined.  The  solution  is  required  to  meet  the  flow  tangency 
condition  and  the  doublets  are  required  to  be  within  the  body. 

Since  thin-airfoil  theory  fails  near  the  stagnation  points  and  it  is  not  physically 
possible  for  the  source  distribution  to  extend  to  the  ends  of  the  body  and  still  meet  the 


flow  tangency  condition,  there  must  exist  a  finite  distance  between  the  ends  of  the  source 
distribution  and  the  stagnation  points. 

This  distance  is  determined  by  approximating  the  shape  of  a  blunt-nosed  airfoil  near 
its  nose,  jt  *  0,  as  parabolic.  Using  thin-airfoil  theory  and  the  radius  of  curvature 
(Figure  3),  the  source  strength  near  the  leading  edge  of  the  source  distribution  can  be 
approximated.  Applying  this  approximation  and  the  requirement  that  the  source- 
induced  velocity  must  cancel  that  of  the  onset  flow  at  the  stagnation  point,  it  can  be 
shown  I  Kef.  1  pp.52-54],  that  the  separation  distance  between  the  stagnation  point  and 
the  leading  edge  of  the  source  distribution  is  approximately  half  the  radius  of  curvature 
of  the  nose  of  the  body.  A  similar  analysis  holds  for  the  other  end  of  the  body. 


Figure  3.  The  Radius  of  Curvature  of  a  Leading  Edge 


The  program  DUBLET  incorporates  the  half  radius  of  curvature  inset  and  satisfies 
the  flow  tangency  requirements  using  an  iterative  approach.  This  is  done  by  taking  an 
approximation  to  the  proper  inset,  solving  the  set  of  simultaneous  equations  for  the 
doublet  strength  distribution  which  satisfies  the  flow  tangency  condition  and  then  eval¬ 
uating  the  resulting  velocity  at  the  stagnation  points.  If  the  velocity  is  not  sufficiently 
close  to  zero,  the  estimated  values  are  revised  and  the  process  is  repeated.  The  iterative 
approach  used  is  an  interval-halving  or  bisection  method  of  root-finding  similar  to  that 
described  in  Ref.  5. 

A  more  complete  development  of  the  thin-airfoil  theory  and  the  underlying 
equations  used  to  derivt  this  method  are  detailed  by  Moran  [Ref.  1]. 
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C.  PROGRAM  PANEL 

This  analysis  again  uses  the  direct  method  to  solve  for  the  proper  distribution  of 
singularities-’  on  a  body  which,  in  combination  with  a  uniform  stream,  provide  the  flow 
over  the  body. 

This  program  uses  a  numerical  approach  to  provide  an  approximation  to  the  sol¬ 
ution  of  the  integral  equation  for  the  source  and  vortex  distribution  on  the  surface  of  a 
lifting  body  in  incompressible  irrotational  flow.  It  is  specifically  designed  to  evaluate 
NACA  four-  digit  airfoils  and  NACA  five-digit  airfoils  of  the  230XX  series;  however 
provisions  are  made  within  the  program  for  entry  of  any  arbitrary  airfoil  shape. 

The  following  presents  some  reasons  for  and  a  brief  development  of  the  panel 
method.  Although  thin  airfoil  theory  gives  reasonably  good  results  for  lift  and  moment 
coefficients,  it  ignores  the  effect  on  those  coefficients  of  the  thickness  distribution.  In 
addition,  thin  airfoil  theory  gives  good  pressure  distribution  results  only  away  from  the 
stagnation  points.  Since  proper  design  of  an  airfoil  requires  an  accurate  prediction  of 
its  pressure  distribution,  more  powerful  methods  are  based  on  the  distributions  of 
sources  and  vortices  or  doublets.  This  is  empasized  by  Moran  when  he  states 

“To  avoid  the  inaccuracies  of  thin-airfoil  theory,  the  flow-tangency  condition  must 
be  satisfied  on  the  body  surface  and.. .the  singularities  should  be  distributed  on  the 
body  surface  rather  than  on  the  chord  line  or  any  other  line  within  or  without  the 
body." 

To  achieve  this  placement  of  the  singularities  on  the  body,  the  body  surface  is  ap¬ 
proximated  by  a  collection  of  straight  line  panels.  This  form  of  surface  approximation 
is  where  the  panel  method  receives  its  name.  Program  PANEL  uses  a  solution  method 
based  on  sources  and  vortices  distributed  on  these  surface  panels. 

The  potential  for  this  flow  may  be  described  as 

0  =  ^0 0  +  05  +  0^  (2) 

where  4>„  is  the  potential  of  the  uniform  onset  flow,  which  can  be  written  in  a  Cartesian 
system  as 


<£oc  *  VooX  cos  *  +  O' sin  * 


(3) 


3  ’Singularities"  is  used  here  as  a  generic  term  for  sources,  vortices,  doublets  and  other  funda¬ 
mental  solutions  of  the  Laplace  equation  that  blow  up-are  "singular'-at  some  point  outside  the 
flow  field. 
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where  Vm  is  the  velocity  of  the  uniform  flow,  and  a  is  the  angle  between  the  flow  direc¬ 
tion  and  the  x  axis.  The  remaining  potential  terms  are  defined  as 


in  which  the  integrations  are  over  the  body  surface.  This  defines  4>s  ,  as  the  potential 
of  a  source  distribution  of  strength  q(s)  per  unit  length  and  4>y  ,  as  the  potential  of  a 
vortex  distribution  of  strength  y(s)  per  unit  length.  Figure  4  shows  that  s  is  the  distance 
measured  along  the  surface  from  some  arbitrary  reference  point-in  this  case  the  leading 
edge  has  been  chosen-to  the  “field  point”,  (jtj)  ,  or  (r,  0)  in  polar  coordinates. 


Figure  4.  Nomenclature  for  the  Analysis  by  the  Panel  Method 


We  seek  a  solution  where  q(s)  and  y{s)  are  determined  so  as  to  meet  the  boundary  con¬ 
dition  of  flow  tangency  and  the  Kutta  condition.  The  latter  is  the  requirement  that  the 
stagnation  point  be  at  the  trailing  edge*. 

The  view  of  this  problem  taken  by  Hess  and  Smith  (Ref.  6]  is  that  the  source 
strength  governs  the  flow  tangency  condition  and  the  Kutta  condition  governs  the 

4  All  airfoils  considered  here  are  assumed  to  have  sharp  trailing  edges. 
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vortex  strength*.  They  make  the  simplifying  assumption  that  the  vortex  strength  is 
taken  constant  over  the  whole  airfoil,  i.e.  y(s)  -  y  ,  and  justify  this  by  reasoning  that, 
since  the  Kutta  condition  governs  the  vortex  strength,  and  the  Kutta  condition  involves 
only  the  trailing  edge,  then  the  vortex  strength  can  be  represented  by  a  single  number. 
Conversely,  the  source  strength  must  vary  over  the  surface  to  allow  the  flow  tangcncy 
condition  to  be  satisfied  at  all  points  on  the  body  surface. 

The  integrals  of  equations  (4)  and  (5)  are  difficult  to  evaluate  unless  the  surface  on 
which  the  singularities  are  distributed  is  a  straight  line.  This  is  where  the  surface  panels 
come  into  play.  The  body  is  divided  up  into  a  set  of  panels  by  selecting  a  set  of  :Y  points, 
called  nodes,  which  are  then  connected  by  straight  lines.  This  results  in  an  approxi¬ 
mation  of  the  body  composed  of  A'  nodes  and  panels  as  shown  in  Figure  5. 


The  sources  and  vortices  are  distributed  on  the  straight  line  panels  and  the  constant 
vortex  strength  assumption  is  incorporated  so  that  the  potential  given  by  equation  (2), 
as  developed  in  equations  (3)  through  (5),  may  be  written  as: 


4>  «  V^x  cos  a  +  Vg^y  sin  a  + 


(6) 


S  In  actuality,  both  singularity  distributions  are  important  in  satisfying  either  condition. 
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To  allow  evaluation  of  the  integrals  in  equation  (6),  the  source  strength  is  taken  to 
be  constant  on  each  panel,  but  allowed  to  vary  from  panel  to  panel,  i.e. 

q(s)  =  qt  on  panel  i,  i  =  1,...,  V  (7) 

The  parameters  to  be  determined  are  then  the  N  source  strengths  q,  and  the  single 
vortex  strength  y.  These  are  found  by  imposing  the  flow  tangency  condition  at  A'  control 
points  and  a  corollary  to  the  Kutta  condition  which  states,  "Near  the  trailing  edge,  the 
flow  speeds  on  the  upper  and  lower  surfaces  of  the  airfoil  are  equal  at  equal  distances 
from  the  trailing  edge."[Ref.  1] 

Moran  [Ref.  1]  prc  ides  a  clear  explanation  of  the  geometric  development  of  the 
problem  and  the  resulting  set  of  S  +  1  equations  in  the  unknowns  q„  i  =  1,...,A\  and 
y.  This  leads  into  a  discussion  regarding  the  development  of  a  FORTRAN  program  that 
uses  the  panel  method.  Program  PANEL  sets  up  and  solves  this  set  of  equations.  The 
tangential  velocity  at  the  midpoint  of  each  panel  is  then  evaluated  and  its  associated 
pressure  coefficient  Cp  is  calculated.  By  assuming  the  latter  to  be  constant  over  each 
panel,  the  estimated  lift  and  moment  may  then  be  calculated. 


10 


IV.  BASIC  THEORY  OF  3-D  WING  ANALYSIS  PROGRAMS 
A.  INTRODUCTION 

As  discussed  in  the  previous  section  on  2-D  airfoil  theory,  there  are  several  ways  to 
model  the  source  of  forces  acting  on  a  body  surrounded  by  a  moving  fluid.  These  in¬ 
cluded  potential  functions,  vortex  distributions,  circulation  distributions  and  pressure 
differential  distributions.  These  models  are  related  to  one  another  and  each  has  advan¬ 
tages  and  disadvantages.  Both  of  the  following  programs,  VORLAT  and  JETFLAP,  rely 
on  a  distribution  of  discrete  horseshoe  vortices  to  model  the  flow  over  a  wing. 

1.  The  Horseshoe  Vortex 

To  provide  the  reader  with  an  understanding  of  the  theory  behind  the  VORLAT 
and  JETFLAP  programs,  it  is  necessary  to  explain  what  a  horseshoe  vortex  is  and  what 
properties  it  has.  References  1,  2,  and  3  provided  a  basis  for  much  of  the  material  con¬ 
tained  in  this  section. 

The  idea  of  th  horseshoe  vortex  was  developed  by  Prandtl  and  Lanchcster 
while  trying  to  provide  a  simplified  model  of  the  ideal  flow  over  a  wing.  Prandtl  rea¬ 
soned  that  a  vortex  filament  of  strength  T,  bound  to  a  fixed  location  in  a  flow-a  bound 
vortex-will  experience  a  force  L  =  p,,}'S  from  the  Kutta-Zhukovsky  theorem.  To 
satisfy  Hetmholz'  theorem  which  states  that  a  vortex  filament  cannot  end  in  a  fluid,  the 
vortex  filament  continues  as  two  free  vortices  extending  downstream  from  the  wing  tips 
to  infinity.  The  construction  of  this  vortex  is  in  the  shape  of  a  horseshoe  and  it  is 
therefore  called  a  horseshoe  vortex.  It  is  correctly  pointed  out  however  by  Zucker  that, 
"...the  word  "horseshoe",  although  in  common  usage,  is  misleading  since  these  filaments 
are  actually  "closed"  back  at  the  place  where  the  motion  originated. "[Ref.  3] 

As  shown  in  Figure  6.  the  wing  is  replaced  by  a  "lifting  line"  perpendicular  to 
the  flight  direction  and  located  at  the  quarter-chord,  with  the  two  free  vortices  trailing 
from  the  wing  tips. 
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Figure  6.  Replacement  of  the  Finite  Wing  with  a  Bound  Vortex  [Ref.  2[ 


This  model  did  not  provide  a  very  realistic  simulation  of  the  dowmvash  distrib¬ 
ution  of  a  finite  wing;  especially  near  the  tips  where  the  predicted  downwash  approaches 
an  infinite  value.  The  downwash  distribution  as  a  function  of  the  span,  wO),  is  shown 
in  Figure  7. 


Figure  7.  Downwash  Distribution  Along  y  Axis  for  a  Horseshoe  Vortex  [Ref.  2) 
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An  improvement  on  this  model  was  the  'lifting  line"  model  which  superimposed 
a  large  number  of  horseshoe  vortices,  each  with  a  different  length  of  bound  vortex,  but 
with  all  the  bound  vortices  lying  along  a  single  line.  This  is  depicted  in  Figure  S  which 
has  three  horseshoe  vortices  of  strengths,  AT,,  AT,  and  AT,.  The  variation  of  T  along 
the  lifting  line  is  denoted  by  the  vertical  bars.  Since  LocT,  this  is  also  an  indication  of 
the  lift  distribution.  It  should  be  noted  that  the  strength  of  each  trailing  vortex  is  equal 
to  the  change  in  circulation  along  the  lifting  line  at  the  point  where  the  trailing  vortex 
starts. 


Figure  8.  Superposition  of  Three  Horseshoe  Vortices  Along  a  Lifting  Line  (Ref.  2] 

This  model  is  good  for  high  aspect  ratio  straight  wings  and  provides  an  excellent 
prediction  of  spanwise  loading  and  overall  lift.  It  cannot  however,  produce  chordwise 
pressure  distributions  and  moment  data. 

To  deal  with  low  aspect  ratio  straight  wings,  the  model  is  extended  by  placing 
a  series  of  lifting  lines  on  the  plane  of  the  wing  at  different  chordwise  stations,  all  parallel 
to  the  j/  axis.  In  the  limit  of  an  infinite  number  of  these  lifting  lines,  we  obtain  a  vortex 
sheet,  where  the  vortex  lines  run  parallel  to  the,y  axis.  The  strength  of  the  sheet  per  unit 
area  is  denoted  by  y,  where  the  latter  varies  in  the  y  direction  in  a  manner  analogous  to 
the  variation  of  I~  for  the  single  lifting  line.  In  addition,  each  lifting  line  will  have,  in 


general,  a  different  overall  strength,  so  that  y  also  varies  with  x.  This  relation, 
y  -  y(jtvr)  is  shown  in  figure  9. 


This  vortex  sheet  results  in  a  lifting  surface  distributed  over  the  entire  planform 
of  the  wing.  The  strength  of  the  lifting  surface  at  any  point  on  the  surface  is  given  by 
y  *  y(x^v).  The  aim  of  the  lifting  surface  theory  is  to  find  y(jc*y)  such  that  the  flow- 
tangency  condition  is  satisfied  at  all  points  on  the  wing. 

For  computational  purposes  the  planform  is  divided  into  a  finite  number  of 
square  or  rectangular  panels  and  the  yth  panel  chosen  for  initial  computation.  The 
spanwise  vorticity  on  each  panel  is  assumed  to  be  concentrated  at  the  quarter-chord 
point  of  the  panel  and  the  flow  tangency  condition  is  satisfied  at  the  "control  point" 
which  is  located  at  the  three-quarter  chord  point  of  the  panel  [Ref.  IJ.  The  wing  problem 
then  reduces  to  computation  of  the  velocity  at  the  control  point  on  this  yth  panel  due 
to  all  the  other  panels.  This  velocity  is  combined  with  the  freestream  value  and  the 
tangency  condition  applied.  For  each  panel,  there  is  therefore,  one  linear  equation  and 
with  Y  panels  there  are  A'  such  equations.  Matrix  methods  are  applied  to  solve  this 
system  and  with  the  vorticity  distribution  known,  the  Kutta-Zhukovsky  theorem  is  ap¬ 
plied  to  obtain  the  lift  and  moments.  The  induced  drag  can  be  computed  from  the 
downwash,  which  is  known  at  the  control  points.  The  vortex-lattice  method  used  by 
program  VORLAT  is  a  simple  approach  used  to  solve  for  y  »  y(x*y). 
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B.  PROGRAM  VORLAT 

Program  VORLAT  implements  the  vortex-lattice  method  to  determine  the  solution 
for  the  vortex  strength  distribution  on  a  flat,  untwisted,  rectangular  wing.  A  set  of 
horseshoe  vortices  are  used  to  approximate  the  flow  over  a  wing  of  low  aspect  ratio. 
This  is  a  version  of  the  VORLAT  program  by  Moran  [Ref.  1J  which  has  been  highly 
modified  and  now  incorporates  a  cosine  spacing  scheme. 

The  User's  Manual  presents  a  short  description  of  the  VORLAT  program.  For 
complete  coverage  of  the  original  VORLAT  program,  consult  Moran  [Ref.  1). 

C.  PROGRAMS  JETFLAP  AND  JETFLAPIN 

Program  JETFLAP  was  written  by  M.  L.  Lopez,  C.  C.  Shen,  and  X.  F.  Wasson 
at  the  Douglas  Aircraft  Company,  Long  Beach,  California.  The  program  is  based  on 
A  Theoretical  Method  for  Calculating  the  Aerodynamic  Characteristics  of  Jet-Flapped 
Wings  [Ref.  7]  which  was  developed  under  a  research  contract  sponsored  by  the  Office 
of  Naval  Research.  The  program  is  quite  extensive  and  has  the  capability  of  determining 
the  following  aerodynamic  characteristics  of  wings  of  arbitrary  planform: 

•  Spanwise  and  chordwise  loading 

•  Spanwise  variation  of  induced  drag 

•  A  capability  to  investigate  the  effects  of: 

Part  span  flaps 

Part  span  blowing 

Pitching,  rolling,  yawing  and  sideslip 

•  Total  lift  and  induced  drag  (momentum  method),  pitching,  yawing  and  rolling  mo¬ 
ments,  etc. 


The  program  also  provides  the  capability  to  investigate  the  eflects  of  a  variation  of 
leading  and  trailing  flap  deflection,  camber,  twist,  jet  deflection  and  jet  momentum. 

Despite  the  many  capabilities  of  this  program  and  the  revised  User's  Manual  devel¬ 
oped  by  Soderman  [Ref.  8]  in  1976,  the  program  has  had  limited  use  at  the  Naval  Post¬ 
graduate  School  since  then.  This  author  feels  that  a  major  reason  for  its  lack  of  use  is 
the  inordinate  amount  of  time  required  for  the  user  to  prepare  and  input  the  data  file  for 
even  the  most  elementary  planform. 

To  alleviate  this  problem,  the  author  developed  Program  JETFLAPIN,  an  interac¬ 
tive  data  entry  program  to  interface  with  the  JETFLAP  program.  To  ensure  compat¬ 
ibility,  much  of  JETFLAPIN  was  created  using  existing  subroutines  from  JETFLAP. 
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The  JETFLAPIN  program  provides  the  user  with  a  method  of  developing  an  almost 
error-free6  input  data  file  for  use  with  the  main  JETFLAP  program. 

The  JETFLAPIN  program  provides  error-checking,  data  review  correction,  assur¬ 
ance  that  all  required  data  has  been  entered  and  the  elimination  of  redundant  data  entry. 


6  While  it  is  still  possible  for  the  user  to  input  bad  data  values,  the  errors  due  to  values  out 
of  limits  or  incorrect  formatting  have  been  virtually  eliminated. 
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V.  PROGRAM  TRANSFER  AND  CONVERSION 


A.  INTRODUCTION 

This  section  discussed  the  steps  taken  in  the  transfer  of  the  programs  DUBLET, 
PANEL,  VORLAT  and  JETFLAP  from  the  IBM  mainframe  computer  and  their  con¬ 
version  for  use  on  the  Micro  VAX  2000  workstation.  The  information  provided  here  will 
be  of  use  to  others  planning  future  transfers  of  programs  between  the  IBM  mainframe 
computer  and  the  Micro  VAX  2000. 

B.  FILE  TRANSFER 

1.  Programs  DUBLET,  PANEL,  VORLAT 

The  programs  DUBLET,  PANEL  and  VORLAT,  were  located  on  the  IBM 
mainframe  under  the  user  account  4632P,  which  was  set  up  for  use  by  the  Numerical 
Methods  course.  AE  4632,  taught  in  the  Aeronautical  Engineering  Department.?  Each 
program  was  opertational  on  the  mainframe  and  was  activated  through  the  use  of  an 
executive  calling  routine  referred  to  as  an  "EXEC''.  These  EXECs  and  the  program 
source  code  files  were  readily  available  for  transfer. 

Each  program  and  its  calling  EXEC  were  transferred  to  the  VAX  11/780  located 
in  the  Computer  Science  Department.  This  was  necessary  as  the  AE  ME  VAX  network 
is  not  currently  linked  with  the  IBM  mainframe.  This  transfer  was  conducted  by  Mr. 
David  Marco,  a  computer  technician  working  on  the  AE/ME  VAX  system,  using  the 
VAX  27S0  3780  Protocol  Emulator.  The  file  transfer  procedures  outlined  in  a  Computer 
Science  Department  handout  covering  the  RJE  File  Transfer  Package  were  followed. 
When  the  transfer  was  completed,  the  files  were  downloaded  to  a  magnetic  tape  car¬ 
tridge.  a  DEC  TK50. 

The  tape  was  then  taken  to  the  MicroVAX/2000  workstation  and  loaded  into 
the  DEC  TK50  tape  drive  subsystem  connected  to  the  workstation.  The  files  were  then 
tranferred  from  the  tape  to  the  workstation's  hard  disk.  From  here  the  files  could  be 
edited  using  the  VAX  EDT  editor  [Ref.  9),  compiled,  linked  and  run  under  VAX 
FORTRAN  version  V4.0. 

?  The  read-only  password  for  this  account  is  JVH. 


2.  Program  JETFLAP 

Program  JETFLAP  had  to  be  handled  quite  differently  than  the  other  programs. 
It  too  was  operational  on  the  mainframe,  however  it  had  been  converted  into  a  cata¬ 
loged  procedure.  JETFLP,  and  was  executed  using  a  Job  Control  Language  (JCL)  rou¬ 
tine.  An  example  of  this  JCL  file  is  shown  in  Figure  10.  More  information  on  how  to 
create  and  JCL  files  may  be  found  in  the  User's  Guide  to  MVS  at  XPS  [Ref.  10]  or 
the  IBM  JCL  User's  Guide  [Ref.  11]. 


//TAPER  JOB  (146 1,1478), ’DOUGLAS  JETFLAP  PRGM’ ,CLASS=C 
//*MAIN  ORG=NAVPGS.  1461P 
//  EXEC  JETFLP 
//SYSIN  DD  * 

Tapered  Swept  Wing,  AR=8,  Sweep  Angle  45,  10X10  W/Semi-Circle  Spacing 


50. 0000 

20. 000 

0.  0 

10.43 

10.43 

1001000001020000 

. 993844 

. 969372 

. 921032 

. 850012 

. 758062 

. 647446 

.520888 

. 381504 

. 232726 

. 078217 

01010101010101010101 

10 

. 000000 

. 024472 

. 095492 

. 206107 

.  345492 

.5000 

. 654508 

. 793893 

. 904508 

. 975528 

8.  0 

45.0 

0.45 

9 

/* 

// 


Figure  10.  Sample  JETFLAP  Batch  JCL  File 


After  an  exhaustive  search  by  the  personnel  of  the  W.  R.  Church  Computer 
Center  at  the  NPS,  it  was  determined  that  only  the  compiled  version  of  the  program 
existed  on  the  IBM  mainframe.  The  source  code  had  been  purged  from  the  system  and 
was  not  recoverable. 

A  magnetic  tape  containing  the  original  Douglas  Aircraft  Company  program 
was  obtained  from  Dr.  M.  F.  Platzer.  This  copy  had  been  obtained  during  thesis  work 
conducted  by  LCDR  A.  P.  SODERMAN.  The  tape  wras  logged  into  the  NPS  computer 
center  and  its  characteristics  were  determined  using  the  tape  scan  JCL  utility  shown  in 
Figure  11. 
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//JETFLP  JOB  ( 146 1,999 9),' JETFLP  TSCANl' ,CLASS=E 
//’•MAIN  SYSTEM=SY2 ,RINGCHK=NO 
//* 

//*  Print  tape  file  characteristics  for  any  tape 
//* 

1 1  EXEC  TSCAN,V0LIN=JETFLP,DCBIN='DEN=2’ ,UNITIN=' 3400-4' 

II 


Figure  11.  Magnetic  Tape  Scan  Utility  (TSCAN)  JCL  File 


The  tape  scan  utility  revealed  that  the  tape  used  a  very  old  tape  density  of  800 
BP1.  The  computer  center  still  had  an  800  BPI  magnetic  tape  machine,  however  they 
recommended  that  the  contents  of  this  tape  be  copied  onto  a  new  tape  using  the  more 
common  density  of  1600  BPI.  This  was  accomplished  using  the  magnetic  tape  copy 
utility  JCL  file  shown  in  Figure  12.  The  name  of  the  original  tape  volume  was  JETFLP. 
This  was  changed  to  JTFLAP  on  the  new  copy. 

/ / JCOPY  JOB  (146 1,9999),' JETFLP  COPY' ,CLASS=E 

//* 

//*  COPY  TAPE  FILE  FROM  800BPI  TO  ANOTHER  AT  1600BPI 

II* 

1 1  EXEC  TAPE, VOLIN= JETFLP, DCBIN='D£N*2' ,UNITIN*' 3400-4’ , 

//  V0L0UT= JTFLAP 
//SYS IN  DD  * 

CPYEND(lO.ll) 

/* 

II 


Figure  12.  Sample  Tape  Copy  JCL  File 


Several  parity  errors  occurred  while  reading  the  original  tape  during  the  copying 
process.  This  was  an  indication  that  the  files  contained  on  the  original  tape  or  those 
obtained  through  the  transfer  process  may  contain  errors. 

To  discover  the  contents  of  the  tape,  a  magnetic  tape  dump  utility  JCL  file  was 
used.  This  file  is  shown  in  Figure  13. 
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//JTFLAP  JOB  (1461, 9999 ),'JTFLAP  TAPEl' ,CLASS=E 
//*MAIN  SYSTEM=SY2 ,RINGCHK=NO,LINES=( 10) 

//* 

//*  PRINT  THE  CONTENTS  OF  EVERY  FILE  ON  THE  TAPE. 
1 1* 

//  EXEC  TAPE , VOLIN=JTFLAP 
//SYSIN  DD  * 

DMPFILC 10,256,1) 

/* 

// 


Figure  13.  Sample  Tape  Dump  Utility  JCL  File 


A  quick  review  of  the  printout  of  produced  by  this  utility  revealed  that  the  tape 
did  contain  a  complete  set  of  the  desired  files  and  these  were  transferred  to  the  author's 
working  disk  (A  disk)  using  the  procedures  outlined  in  Reference  12.  The  JCL  file  used 
to  perform  the  transfer  from  tape  to  the  mainframe  is  shown  in  Figure  14. 


//JTFLAP  JOB  (1461, 9999 ),*JETFLAP  TRANSFER* ,CLASS=A 
//  EXEC  PGM=IEBGENER 
//SYSPRINT  DD  SYS0UT=A 
//SYSIN  DD  DUMMY 

//SYSUT1  DD  DISP=SHR,DSN=MSS.  C0052.  JETFLP 

//SYSUT2  DD  UNIT=3350,V0L=SER=MVS004,DISP*(NEW,KEEP), 

//  SPACE=( CYL ,(1,1)), 

//  DCB=(RECFM-FB ,LRECL=80,BLKSIZE=8000) , 

//  DSN=S 1461.  JETFLP 

// 


Figure  14.  Sample  Tape  Transfer  JCL  File 


The  file  was  edited  to  remove  the  extra  lines  associated  with  the  transfer  process, 
specifically  header,  trailer  and  system  information  lines  associated  with  the  JCL  tape 
transfer  utility.  The  transfer  process  also  places  the  record  number  and  record  length 
at  the  beginning  of  each  record.  These  were  removed.  The  edited  version  of  the  pro¬ 
gram  consisted  of  4661  lines  of  FORTRAN  code. 
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Examination  of  the  program  file  revealed  that  erroneous  pieces  of  information* 
had  crept  into  the  source  file.  These  were  due  to  either  the  transfer  process  itself  or  ef¬ 
fects  of  the  environment  and  aging  on  the  magnetic  tape.  Regardless  of  their  source, 
these  errors  corrupted  the  source  code  to  such  a  degree  that  it  would  not  compile  prop¬ 
erly  on  the  mainframe. 

An  attempt  to  compile  the  program  was  made  using  the  VS  FORTRAN  com¬ 
piler  with  its  extended  error  messages^  to  locate  as  many  errors  as  possible.  The  listing 
which  was  produced  flagged  all  critical  areas  of  the  program  which  required  revision. 
Corrections  to  the  program  were  made  using  the  listing  as  a  guide.  Corrections  to 
non-critical  areas  of  the  program,  such  as  comment  lines,  were  made  using  the  program 
source  code  listings  contained  in  References  8  and  7  as  guides. 

It  was  noted  during  the  editing  process  that  no  further  errors  were  encountered 
in  the  program  following  line  2462.  This  leads  the  author  to  the  conclusion  that  the  er¬ 
rors  were  not  due  to  the  transfer  process,  but  solely  due  to  defects  present  in  the  outer 
windings  of  the  source  tape. 

Following  completion  of  the  editing  process,  the  program  was  compiled  satis¬ 
factorily.  Since  the  program  was  written  using  several  commands  specific  to  FORTRAN 
IV  it  was  necessary  to  compile  the  program  using  the  (LVL(66))  option  with  the  VS 
FORTRAN  compiler.  This  invokes  the  FORTRAN  IV  version  of  the  VS  FORTRAN 
compiler  which  allows  proper  interpretation  and  compilation  of  older  programs  written 
under  the  FORTRAN  IV  standard. 

The  successfully  compiled  JETFLAP  program  was  then  run  using  the  sample 
data  files  provided  in  References  8  and  7  as  input  files.  The  results  were  then  compared 
to  those  tabulated  in  References  8  and  7  which  were  obtained  using  the  same  data  files. 
A  slight  difference  was  discovered  between  the  computed  values  for  the  moment  coeffi¬ 
cients  (CM  and  CMG).  This  difference  was  traced  to  a  program  line  for  CMG(K)  in 
Subroutine  SLOAD  which  had  been  modified  in  [Ref.  8:  p.  338)  and  [Ref.  7:  p.  C-19J, 
but  had  not  been  corrected  on  the  version  of  the  program  contained  on  the  source  tape. 
Modification  of  this  line  and  subsequent  compilation  and  running  of  the  program 
produced  results  identical  to  those  contained  in  References  8  and  7.  An  additional 

8  The  erroneous  data  consisted  of  extra  spaces,  non-standard  characters  and  improperly  in¬ 
terpreted  characters,  i.e.,  several  O  s  were  interpreted  as  M's. 

9  The  WATFIV  compiler  is  more  thorough  and  produces  an  even  greater  number  of  messages. 
It  is  recommended  for  use  on  smaller  programs  or  in  the  final  stages  of  program  development  due 
to  its  extensive  output. 
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comparison  was  made  with  the  data  file  and  results  produced  by  S.  M.  White,  as  part 
of  a  class  project  for  AE  3501  (Ref.  13].  Again  the  results  were  identical.  It  was  then  felt 
that  the  program  was  ready  to  be  ported  over  to  the  Micro  VAX  2000. 

The  JETFLAP  program  was  transferred  from  the  IBM  mainframe  to  the 
MicroVAX  2000  in  the  same  manner  described  previously.  It  was  compiled  using  the 
NOF77  qualifier  under  VAX  FORTRAN  and  appeared  to  compile  successfully.  When 
a  sample  run  was  executed,  the  program  terminated  abnormally.  This  began  an  ex¬ 
tended  period  of  debugging  to  achieve  proper  operation  of  the  program  on  the 
MicroVAX  2000. 

C.  CONVERSION  AND  REPROGRAMMING 
1.  Programs  DUBLET,  PANEL,  VORLAT 

The  programs  DUBLET,  PANEL  and  VORLAT  were  written  to 
FORTRAN  77  standards  and  therefore  required  little  modification  to  become  opera¬ 
tional  on  the  MicroVAX '2000.  The  only  significant  changes  required  involved  the 
handling  and  assignment  of  input  and  output  data  files.  As  discussed  in  the  section  on 
file  transfer,  each  of  these  programs  had  an  EXEC  file  which  related  to  it.  Each  EXEC 
contained  the  name  of  the  program  to  be  run  and  its  associated  file  definition  statements. 
The  file  definition  statements,  FILEDEFs,  assign  input  output  devices  and  were  used  to 
define  input  and  output  file  names  and  attributes  and  associate  these  with  the  logical 
unit  numbersio  assigned  in  the  called  program.  An  example  of  these  FILEDEFs,  with 
the  FILEDEF  command  abbreviated  to  FI,  are  shown  in  Figure  15.  More  information 
on  these  may  be  found  in  the  User  s  Guide  to  VM  CMS  at  N'PS  [Ref.  14]  or  the  IBM 
CMS  Command  Reference  [Ref.  15J. 


10  A  logical  unit  number  is  specified  or  implied  as  part  of  the  I/O  statement  and  it  designates 
the  device  or  file  to  or  from  which  data  is  transferred.  Logical  unit  numbers  are  integers  from  0  to 
99. 


&TRACE  ON 

FI  1  DISK  JTFLAP  DAT1  B  (RECFM  F  LRECL  2400  BLKSIZE  2400  DSORG  DA 
FI  2  DISK  JTFLAP  DATA2  B  (RECFM  VBS  LRECL  860  BLKSIZE  3460 

FI  3  DISK  JTFLAP  DATA3  B  (RECFM  VBS  LRECL  860  BLKSIZE  3460 

FI  4  DISK  JTFLAP  DATA4  B  (RECFM  VBS  LRECL  860  BLKSIZE  3460 

FI  5  DISK  JTFLAP  DATAIN  (PERM 

FI  6  DISK  JTFLAP  DATAOUT  (RECFM  FBA  LRECL  133  BLKSIZE  3325 

GLOBAL  TXTLIB  VFORTLIB  CMSLIB 
LOAD  JTFLAP 

GLOBAL  LOADLIB  VFLODLIB 

CLRSCRN 

START  * 

&TYPE  COMPUTING  PROCESSING  IS  COMPLETED 


Figure  15.  FILEDEFs  in  a  Sample  JTFLAP  EXEC  File 


Although  the  use  of  EXEC  files  and  FILEDEFs  is  relatively  easy  and  is  com¬ 
mon  practice  on  the  IBM  mainframe,  they  are  part  of  the  VMS  operating  system  and 
are  not  in  accordance  with  FORI  RAN  77  standards.  The  VAX  VMS  operating  system 
does  have  a  similar  capability  using  the  COMMAND  or  .COM  file,  however  in  an  effort 
to  make  the  programs  more  machine  independent  and  compliant  with  the 
FORTRAN  "7  standard,  it  was  decided  to  open  and  define  input  and  output  files  within 
each  FORTRAN  program. 

The  use  of  the  OPEN  statement  causes  a  logical  unit  number  (device)  to  be  as¬ 
signed  for  input  and  or  output.  Within  the  OPEN  statement  specific  characteristics  of 
the  file  such  as  record  size,  file  type,  type  of  access,  file  status,  etc.,  are  defined.  An  ex¬ 
ample  of  such  an  OPEN  statement  is  shown  in  Figure  16. 
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C  OPEN  FILE 

FOR  DATA  FILE  INPUT 

OPEN 

(UNIT-LUN, 

2 

FILE-  ’INFILE’, 

2 

ORGANIZATION-  ’SEQUENTIAL', 

ACCESS-  'SEQUENTIAL', 

RECORDTYPE-  ’VARIABLE', 

2 

2 

2 

FORM-  'FORMATTED', 

2 

STATUS-  ’OLD’) 

C  OPEN  SCRATCH  FILE  FOR  MATRIX  INPUT  TO  SOLN  ROUTINE 

OPEN 

(UNIT-2, 

2 

FILE-  'JTFLAP2.DAT', 

2 

ORGANIZATION-  ’SEQUENTIAL', 

ACCESS-  'SEQUENTIAL', 

2 

2 

RECORDTYPE-  'VARIABLE', 

2 

FORM-  'UNFORMATTED', 

2 

STATUS-  'SCRATCH') 

Figure  16.  Sample  OPEN  Statement 

Much  of  the  information  shown  in  these  OPEN  statements  may  be  defaulted, 
that  is.  if  a  qualifier  is  not  input  by  the  programmer,  a  predetermined  response  is  set  by 
the  compiler.  The  attributes  have  been  shown  here  for  clarity  and  to  enhance  portabil¬ 
ity.  Since  not  all  compilers  use  the  same  defaults,  it  is  important  to  know  as  much  as 
possible  about  the  file  attributes  when  transferring  programs  from  one  machine  to  an¬ 
other.  General  information  on  these  qualifiers  may  be  found  in  most  FORTRAN  texts 
and  specifics  for  the  MicroVAX  2000  may  be  found  in  the  VAX  FORTRAN  Manuals 
[Refs.  16  and  17  ]. 


VI.  RESULTS  AND  RECOMMENDATIONS 

The  objectives  of  this  thesis  study  have  been  achieved.  A  set  of  four  FORTRAN 
programs  for  basic  aerodynamic  analysis  are  available  for  student  projects  on  the 
Micro  VAX  2000  CAD  CAE  workstation.  The  following  programs  have  been  success¬ 
fully  transferred  from  the  NPS  IBM  mainframe  computer  and  are  operational  on  the 
Micro  VAX  2000. 

•  Program  DL'BLET 

•  Program  PANEL 

•  Program  VORLAT 

•  Program  JETFLAP 

In  addition,  an  interactive  program,  JETFLAPIN,  has  been  developed  and  implemented. 
The  programs  are  easy  to  use,  JETFLAP  being  an  exception,  and  they  provide  the  de¬ 
sired  attributes  of  data  review  correction,  multiple  run  capability  and  error-checking. 
A  users  manual  for  each  program  was  created.  These  manuals  along  with  sample 
input  output  files  and  complete  program  listings  are  contained  in  the  appendices. 

The  programs  were  tested  to  ensure  their  accuracy  and  completeness  following 
conversion.  This  was  accomplished  by  comparing  the  output  files  generated  by  the  IBM 
mainframe  and  the  Micro  VAX  2000  for  identical  input  files.  The  numerical  output 
values  were  generally  in  agreement  to  the  fourth  decimal  place  or  better.  When  the 
JETFLAP  output  file  for  the  DOLGLAS.DAT  easel  1  was  compared  to  the  output  file 
in  Ref.  7,  it  was  found  to  be  numerically  exact,  save  for  a  few  isolated  values. 

The  results  of  the  2-D  programs  DUB  LET  and  PANEL  were  compared  to  the  ex¬ 
pected  theoretical  values  and  wind  tunnel  data  and  showed  good  correlation.  The  results 
of  program  PANEL  for  the  NASA  LS(1)-0013  airfoil  showed  excellent  agreement  with 
those  of  Ref.  18.  Although  not  its  main  purpose,  the  PANEL  program  is  especially 
useful  for  generating  the  surface  coordinates  for  an  airfoil  of  the  NACA  XXXX  or 
23XXX  series. 

The  3-D  program  VORLAT,  using  the  cosine  spacing  option,  produced  results 
nearly  identical  to  those  obtained  by  Hough  [Ref.  19],  for  a  wing  of  aspect  ratio  2.  As 

11  Input  file  used  by  Douglas  Aircraft  Co.  to  validate  JETFLAP  in  their  report  to  ONR. 
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mentioned  previously,  the  results  of  JETFLAP  compared  well  with  the  results  found  in 
Refs.  7,  S  and  13. 

Countless  manhours  were  expended  in  the  editing,  debugging  and  validating  of  these 
programs,  and  the  result  is  the  desired  set  of  baseline  programs  for  basic  aerodynamic 
class  projects  and  research. 

As  with  all  programs,  there  are  still  a  few  more  changes  that  could  be  made  to  im¬ 
prove  the  utility  or  flexibility  of  these  programs.  The  next  major  step  is  to  provide  the 
capability  of  generating  graphical  output  from  the  data  produced  by  these  programs. 
The  programs  DL'BLET,  PANEL  and  VORLAT  lend  themselves  quite  readily  to  this 
due  to  their  columnar  output  form,  and  in  fact,  the  results  shown  in  Figures  26  through 
34  in  Appendix  E  were  produced  on  the  IBM  mainframe  using  EASYPLOT  and 
D1SSPLA. 

There  is  also  furthe-  work  to  be  done  on  program  JETFLAPIN.  Although  it  is  fully 
operational,  the  data  review  correction  and  error-trapping  routines  were  not  imple¬ 
mented  for  jet-flapped  wings  due  to  time  constraints.  A  user  inputing  data  for  a  con¬ 
ventional  unblown  wing  of  arbitrary  or  trapezoidal  planform  will  not  be  aware  of  this 
deficiency. 

Although  the  JETFLAPIN  program  performs  its  designed  task  of  assisting  the  user 
in  creating  the  properly  formatted  JETFLAP  input  file,  a  few  suggestions  for  improve¬ 
ment  are  considered  relevant. 

•  The  program  should  allow  the  user  to  define  the  number  of  spanwise  and  chordwise 
divisions  and  then  automatically  compute  the  required  coordinates  using  a  semi¬ 
circle  or  similar  scheme. 

•  The  program  should  provide  graphical  display  of  the  spanwise  and  chordwise 
loadings  for  the  fundamental  and  composite  cases.  The  section  loadings  to  be 
plotted  should  be  user  selectable. 

•  The  capability  to  read  in  and  either  continue  or  modify  an  existing  file  would  be 
quite  useful.  This  would  be  an  improvement  over  using  the  EDT  editor  to  modify 
(and  possibly  corrupt)  the  properly  formatted  file. 
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Introduction 

The  purpose  of  the  DUBLET  program  is  to  determine  the  piecewise  constant  doublet 
strength  m(t)  for  a  line  doublet  distribution  of  an  elliptic  or  airfoil-like  shape  at  zero 
angle  of  attack.  The  points  /,  represent  the  location  of  the  doublets  along  the  chord  or 
line  of  symmetry.  They  are  concentrated  near  the  ends  of  the  distribution,  using  a  cosine 
spacing  method,  where  the  variation  of  the  doublet  strength  is  expected  to  be  most  rapid. 
The  point  r,  corresponds  to  or,  and  rv  corresponds  to  the  endpoint  xr  The  abscissas  or, 
of  the  points  at  which  the  integral  equation  is  satisfied  are  chosen  as  the  midpoints  of 
the  subintervals  on  which  the  doublet  strength  is  constant,  i.e.,  jc,  =  (/,  +  /,.,)/ 2  . 

The  stream  function  can  be  calculated  from  the  doublet  strength  distribution.  From  the 
stream  function,  the  velocity  components  and  the  pressure  coeflicicnts  may  be  calcu¬ 
lated.  The  surface  shape  is  defined  by  >•=  K(.r)  and  the  solution  must  satisfy  the 
boundary  conditions  at  the  leading  and  trailing  edge  stagnation  points. 

Assumptions  and  Limitations 

The  approach  taken  to  develop  this  method  of  solution  assumes  that  the  source  and 
doublet  strength  functions  are  both  pieccwise-constant.  It  is  also  important  to  remem¬ 
ber  that  this  solution  is  for  incompressible  and  inviscid  irrotational  flow.  Since  the 
bodies  under  investigation  are  symmetrical  and  at  zero  angle  of  attack,  there  is  no  lift 
or  induced  drag  produced.  In  addition,  there  is  no  drag  since  we  are  considering  an 
inviscid  fluid. 


Input  Description 

There  are  very  few  input  values  required  for  this  simple  program.  Their  description  and 
program  variable  namer  are  listed  below. 

NTYPE  -  Type  of  body  shape;  elliptic  or  airfoil-like. 

TAV  -  Thickness  ratio.  (Maximum  thickness/chord) 

XMAXY  -  Chordwise  location  of  the  point  of  maximum  thickness.  (Airfoil  only) 

N  -  Number  of  intervals.  2  £  N  £  100 
XS  -  Doublet  distribution  starting  point. 

XF  -  Doublet  distribution  ending  point. 

NXTOL  -  Exponent  value  used  to  generate  the  convergence  criterion  XTOL. 

NFTOL  -  Exponent  value  used  to  generate  the  convergence  criterion  FTOL. 
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XTOL  •  X  location  tolerance. 
FTOL  -  X  location  tolerance. 


Sample  Problem 

A  few  sample  problems  will  illustrate  the  use  of  the  DUBLET  program.  The  first  run 
will  be  done  using  an  ellipse  of  thickness  ratio  0.1.  The  second  run  will  analyze  an 
airfoil-like  shape  with  a  thickness  ratio  of  0.1 2  and  a  chordwise  location  of  maximum 
thickness  of  0.30. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

S 

Next,  ensure  that  the  program  is  in  your  directory  by  typing 

DIR  [Return] 

and  viewing  the  liles  for  DUBLET.EXE  and  DL'BLET.OBJ.  If  only  the  DUBLET.FOR 
file  exists,  you  must  compile  the  program  by  typing, 

FOR  DUBLET  [Retuml 

The  next  step  is  to  link  the  program  by  entering, 

LINK  DUBLET  [Return] 

The  files  DUBLET.EXE  and  DL'BLET.OBJ  will  now  exist  and  you  will  be  able  to  run 
the  program. 

Running  the  Program 
To  run  the  program,  type 
DUBLET  [Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Figure  17. 
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PROGRAM  DUBLET  :  VERSION  2  :  3  AUGUST  88 

DOUBLET  DISTRIBUTION  METHOD  IS  USED  TO  DETERMINE 
INCOMPRESSIBLE  FLOW  AROUND  AN  ELLIPSE  OR 
SYMMETRICAL  AIRFOIL  AT  ZERO  ANGLE  OF  ATTACK 

PROGRAM  ASSUMES  A  NONDIMENSIONAL  CHORD,  THAT  IS, 

THE  VALID  RANGE  OF  X  IS  FROM  0  TO  1. 

ENTER  TYPE  OF  BODY  SHAPE  DESIRED: 

1)  ELLIPTIC  OR 

2)  SYMMETRICAL  AIRFOIL-LIKE 
ENTER  1  OR  2. 

Figure  17.  Initial  Screen  for  Program  DUBLET 

For  the  elliptic  case  respond  to  the  request  by  entering 

1  [Return] 

Respond  to  the  request  for  the  thickness  ratio  by  entering 

0.1  [Return] 

Now  enter  the  number  of  intervals  you  desire  the  doublet  distribution  to  have  by  enter¬ 
ing 

10  [Return] 

The  screen  should  now  look  like  what  is  shown  in  Figure  18. 

WHICH  METHOD  DO  YOU  WISH  TO  USE  TO  DETERMINE  THE 
DOUBLET  DISTRIBUTION  ENDPOINTS?  (1  OR  2) 

1)  PROGRAM  INTERVAL-HALVING  SUBROUTINE  TO  ITERATE. 

2)  MANUAL  ITERATION  BY  THE  USER. 

Figure  18.  Endpoint  Determination  Method  Selection  Screen 

Respond  to  the  question  by  entering 

1  (Return] 

If  you  should  desire  to  enter  your  own  values,  enter  2. 
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The  next  values  you  will  be  required  to  enter  are  for  the  X  location  tolerance  and  the 
stagnation  point  velocity  function  tolerance.  It  is  recommended  that  values  of  10E-6 
(0.000001)  be  used.  The  maximum  number  of  iterations  should  be  set  at  a  value  of  at 
least  20  when  using  such  small  tolerances. 

The  output  parameter  entry  has  only  to  do  with  the  interval  halving  subroutine.  Unless 
you  are  having  problems  with  the  program  or  are  interested  in  the  convergence  of  the 
solution,  it  is  recommended  that  this  value  be  set  to  zero  (0). 

Following  entry  of  the  output  parameter,  the  program  begins  the  solution  process.  It 
returns  with  L'O  and  Ul,  the  values  for  the  X  velocity  component  at  the  stagnation 
points  and  the  values  for  XS  and  XF,  the  beginning  and  ending  points  of  the  line  doublet 
distribution.  If  the  values  for  U0  and  Ul  are  sufficiently  close  to  zero,  say  less  than 
10E-3  (0.001),  then  enter 
Y  [Return] 

If  you  desire  more  accuracy,  enter 

N  [Return] 

and  then  reenter  the  tolerance  and  maximum  iteration  values.  Responding  with  a  (Y) 

will  cause  the  program  to  proceed  to  the  output  stage.  Values  will  be  printed  to  the 

screen  and  to  the  following  data  files: 

DUB LET.  DAT  :  DOUBLET  STRENGTH  DISTRIBUTION 
SHAPE.  DAT  :  BODY  SURFACE  COORDINATES 
PRESSURE. DAT:  SURFACE  PRESSURE  DISTRIBUTION 


You  will  be  asked  for  the  number  of  pressure  coefficient  output  points  you  desire.  This 
number  is  independent  of  the  number  of  intervals  of  the  line  doublet  distribution.  It 
affects  only  the  number  of  output  data  points  and  not  the  accuracy  of  the  solution.  The 
program  now  asks  if  you  want  to  make  another  run.  Enter 

1  [Return] 

This  time  the  sample  problem  will  work  through  the  airfoil-like  shape  case  and  the  user 
will  supply  the  values  of  XS  and  XF.  The  user  may  experiment  with  manual  iteration, 
however  to  save  space  this  sample  will  use  previously  determined  satisfactory  values  of 
XS  and  XF  for  the  initial  guess. 
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You  should  now  be  back  at  the  initial  screen  and  it  should  look  like  Figure  17.  For  the 
airfoil-like  case  enter 

2  {Return] 

Respond  to  the  request  for  the  thickness  ratio  by  entering 

.12  (Return] 

For  the  chordwise  location  of  maximum  thickness,  enter 

.30  [Return] 

Now  enter  the  number  of  intervals  you  desire  the  doublet  distribution  to  have  by  enter¬ 
ing 

10  [Return] 

The  next  step  is  to  select  the  method  for  the  determination  of  the  endpoints  for  the 
doublet  distribution.  The  screen  should  look  like  Figure  19. 


WHICH  METHOD  DO  YOU  WISH  TO  USE  TO  DETERMINE  THE 
DOUBLET  DISTRIBUTION  ENDPOINTS?  (1  OR  2) 

1)  PROGRAM  INTERVAL-HALVING  SUBROUTINE  TO  ITERATE. 

2)  MANUAL  ITERATION  BY  THE  USER. 


Figure  19.  Endpoint  Determination  Method  Selection  Screen 

This  time  respond  to  the  question  bv  entering 

2  [Return] 

For  the  doublet  distribution  starting  point,  XS,  enter 

.0082129128  [Return] 

For  the  doublet  distribution  ending  point,  XF,  enter 

.9994138  [Return] 

As  with  the  previous  example,  the  program  now  begins  the  solution  process.  It  returns 
with  L'O  and  L'l,  the  values  for  the  X  velocity  component  at  the  stagnation  points.  It 
also  echoes  back  the  values  entered  for  XS  and  XF.  If  the  returned  values  for  U0  and 
U1  are  sufficiently  close  to  zero,  then  enter 

Y  [Return] 

This  response  will  cause  the  program  to  proceed  to  the  output  stage.  Values  will  be 
printed  to  the  screen  and  to  the  data  files. 
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Enter  the  number  of  pressure  coefficient  output  points  you  desire.  You  are  reminded 
that  this  number  is  independent  of  the  number  of  intervals  of  the  line  doublet  distrib¬ 
ution  and  it  does  not  affect  the  accuracy  of  the  solution. 


The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 
2  [Return] 

This  completes  the  sarrole  problems  for  the  DL'BLET  program.  The  data  files  created 
by  these  sample  runs  and  the  listing  for  the  DL'BLET  program  are  on  the  following 
pages.  Since  the  bodies  analyzed  by  this  program  are  symmetrical  with  respect  to  the  x 
axis,  only  the  upper  surface  body  shape  coordinates  and  pressure  coefficients  are  output. 
For  this  reason,  the  piecewise  constant  doublet  strength  M(l)  is  divided  by  two  to  indi¬ 
cate  the  portion  affecting  the  upper  surface. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 


Sample  problem  1:  Ellipse  •  Thickness  ratio  =0.1 


T(I)  =  Chord>vise  location  of  doublets,  T(1)  =  XS  T(N)  =  XF 
M(I)/2  =  Piecew  ise  doublet  strength  /  2 

DATA  FILE:  DUBLET.DAT 


DOUBLET  STRENGTH  DISTRIBUTION 


T(  I) 

M(I)/2 

0. 0045 

0.0112 

0.  0287 

0.  0259 

0.0991 

0. 0395 

0. 2087 

0. 0494 

0. 3469 

0.  0547 

0.5000 

0. 0547 

0.6531 

0.  049- 

0. 7913 

0. 0395 

0. 9009 

0.0259 

0.9713 

0.0112 

0. 9955 

0. 0000 

Sample  problem  2:  Airfoil  Shape  <  Thickness  ratio  =  0.12,  XMAXY 


DOUBLET  STRENGTH  DISTRIBUTION 


T(I) 

M(I)/2 

0. 0082 

0.0184 

0.  0325 

0. 0438 

0. 1029 

0.  0624 

0. 2125 

0.0703 

0.  3507 

0.  0671 

0.5038 

0.0551 

0.6570 

0.  0383 

0. 7951 

0. 0214 

0.  9048 

0.0083 

0.9752 

0.  0016 

0. 9994 

0.  0000 
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Sample  problem  1:  Ellipse  -  Thickness  ratio  =  0.1 


DATA  FILE:  SHAPE.  DAT 


BODY  SHAPE  -  UPPER  SURFACE 
X  Y 


0.0166 

0.0128 

0.  0639 

0. 0245 

0. 1539 

0.0361 

0.2778 

0.  0448 

0. 4234 

0. 0494 

0.5766 

0.  0494 

0. 7222 

0.  0448 

0. 8461 

0.  0361 

0. 9361 

0.  0245 

0. 9834 

0.  0128 

Sample  problem  2:  Airfoil  Shape  -  Thickness  ratio  =  0.12,  XMAXY 


BODY  SHAPE  -  UPPER  SURFACE 
X  Y 


0.0203 

0.0219 

0. 0677 

0.  038< 

0. 1577 

0. 0523 

0.2816 

0.0597 

0.4272 

0.0586 

0. 5804 

0.  0500 

0. 7260 

0. 0365 

0. 8499 

0. 0216 

0. 9400 

0. 0091 

0. 9873 

0. 0020 

0.30 
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Sample  problem  1:  Ellipse  -  Thickness  ratio  -  0.1 


DATA  FILE:  PRESSURE. DAT 


BODY  SURFACE  PRESSURE  DISTRIBUTION 


X 

CP 

0. 0000 

1. 0000 

0. 1111 

-0. 2621 

0. 2222 

-0. 2341 

0. 3333 

-0. 1866 

0. 4444 

-0. 2078 

0.5556 

-0. 2078 

0. 6667 

-0. 1866 

0.  7778 

-0. 2341 

0. 8889 

-0. 2621 

1.0000 

1.  0000 

Sample  problem  2:  Airfoil  Shape  -  Thickness  ratio  *  0.12,  XMAXY 


BODY  SURFACE  PRESSURE  DISTRIBUTION 


X 

CP 

0. 0000 

1. 0000 

0. 1111 

-0. 3946 

0. 2222 

-0.3572 

0. 3333 

-0. 3162 

0. 4444 

-0. 2938 

0.5556 

-0. 1820 

0. 6667 

-0. 1180 

0. 7778 

-0. 2180 

0.8889 

-0.2142 

1.  0000 

1.  0000 

0.30 
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PROGRAM  DUBLET  LISTING 


8 

8 


PROGRAM  DUBLET 


Bv 


J.A.  CAMPBELL  IJUL  BB) 


K8?8^L5WIbiX^Ef«yWM^EL.M^uKv{ll8.FW, 


cm 


PRINT  *, 
I  NT  *, 
*NT  *, 


RARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THE  PRINT  HEADER 
NUE 

CLRSCRN 

«,  *  PR06RAM  DUBLET  :  VERSION  Z  :  9  SEPTEMBER  88  1 
« 


HR 


10 


pr; 


NT  * 

!H  2; 


* 

*> 


.  Wm  Si  •  ENTER* 

15  fWM'.LVtT 


mmarm  muor* 

PROGRAM  ASSUMES  A  NONDIMENSIONAL  CHORD,  THAT  IS,' 
thevalio  RANGE  OF  X  IS  FROM  0  TO  I.* 

iVI!l?pt??°Sr?hape  DES1RED:  * 

1  lx  z  AIRFOIL -LIKE ' 

'iMY?U??-E&ERTSE8R  2.  ’ 


ENTER  TYf 


20  REA 


ER  THICKNESS  RATIO  (TAU).’ 

II  THEN 

|NTER  THE  NONOIMENSIONAL  X  LOCATION  OF  MAXIMUM’, 


e4e  <  O.S.’ 


END 

END  IF 

INPUT  NUMBER  OF  INTERVALS  N 


«  I.S  *  TAU )/( SORT! XMAXY )•( 1.  -  XMAXY I ) 


EK™  >'JMBER  0F  INTERVALS  DESIRED.  N  «’ 
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m 


WRfHi622i?*A  N  ,CT-  100 *  ™EN 

Sj  :  fo8IOTL8^TDw.I^E^k!s^E*N^^  0F‘ 

22  !MATI  IX, 5X, ‘NUMBER  OF  INTERVALS  REQUESTED  *‘,I5) 

[OR  AUTOMATIC  OR  MANUAL  DETERMINATION  OF  ENDPOINTS. 

CRN 


RHINE  THE* 

TO  ITERATE. ' 


ENTER  S  TO  RETURN  TO  START.* 

?o'fi?o.SSSTE> 

MANUALLY  DETERMINE  ENDPOINTS  OF  SOURCE  DISTRIBUTION  XS,  XF 

100  SiraUcRN 

ROUTINE  FOR  MANUAL  DETERMINATION  OF  ENDPOINTS' 


UJM 


whk 


POINT  ,  XS. 


f i: 

ijp«r 

lm,"v‘ko«taN8.S9«JlS.8a,lS»S5S?^n*  «' 

km1 


EXPONENT  FOR  THE  FUNCTION  ' , 
TOL)  5  YIELDS  FTOL  ■  O.OOOOl).' 


PRINT  *, 

PRINT  », 

yj:  •  ®ET!H  wm  «^eRf?6lxIe5"I8^staSU0T0‘  ‘ 

l|j™arriSW«aw 


^ATED  OUTPUT* 
TERATION* 


C  RUN. 


150 


BY  ITERATION 


5g4g.  .. 


OUTPUT  RESULTS 
PBJNI  1010. 


200 


)  TID.MPLOT 
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• T,m" 


2,0  B 


PRINT 

READ  ISiwj  nrnim 

ff  W-  ?ouTl 

END  ??  T°  212 

$1  oaI1!!!W 


NPRINT 


ST  ENTER  A  MINIMUM  OF  2.  PLEASE  REENTER.1 


( XX _,U  ,CP  I 


c228ALr  iIrSi’Iss?^ 
k\krc^M 


OAT(NPRINT-l) 


CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 


>RINT  *, 
»R|NT  * 
>RINT  *, 

>RINT  », 
VINT  » 
>RINT  * 


PROGRAM  OLBLET  RESULTS  HAVE  BEEN  WRITTEN  TO  FILES: 1 


[W 

S0re.dat 


K 


OPTION  TO  MAKE  ANOTHER  RUN 
I  NT  £,  *  DO  YOU  WISH  TO.: _ * 


H  !:  i  " 

PRINT  * 

CALL  QUERY  (NANS) 

CALL  CLRSCRN 

IF  (NANS  .EQ.  1)  GO  TO  10 
STOP 

1000  FORMAT* Al) 

FORMAT./, ^DOUBLjT  fJRENGJH  5£f?R|BUflC»P  , 
_ 5x,;t.( I )2,5x,:mi i j/2; ./j _  . . 


1012  FORMAT! 

!8f8*f8§8?!;?::  8®  filicpWyraiSttfitffe 

J  •  6L^PufX^o5NT^/’’  NU,®E*  °F  PRESSURE  COE F FI C IE) 

1032+FORMAT ( //. ‘  BODY  SURFACE ’PRESSURE  DISTRIBUTION1,//, 

END  _  _  _ 

***#***^«***»*#  **##****■**#»**  ****************** 

LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 

1ST AT  *  LIB$ERASE_PAGE  (1,1) 

RETURN  _  _ 

END 

SUBROUTINE  QUERY (NANS) 

sraA  ^*hiim?hrmnm 

A  QUESTION  EXPECTING  AN  INTEGER  OR  REAL  VALUE. 


FPRE^SwE  COEFFICIENT', 


IF  (NQTEST  .GT.  0)  THEN 

END#* 5;  ■  KISliWmAtSI  WiWl:' 

NQTEST  *  NQTEST  ♦  1 
READ! 5,*,ERRS1 (NANS 


RETURN 


SUBROUTINE  FINDM  ( T ,M,N,XS,XF ) 

m  rmuMMF  m 

DIMENSION  T( 100 ) ,M( 100 ) 

COMMON  /COF/  A( 101,111), NEONS 

PI  L  M  •  3-1415926585 

00  100  I  *  l.NP 

COSINE  SPACING  SCHEME  FROM  XS  TO  XF 
FRACT  «  .§*(1.  ;  COS( PI#( 1-1  )/FLOAT( N ) ) ) 
T(  I )  «»♦(»■  XS)*FRACT 

SET  UP  LINEAR  SYSTEM  OF  EQUATIONS 


x|  210 

FAC1 


l  x  i  H 

«  .5*fT(I )  ♦  T(I*1) ) 

=  Y( XI ) 

*  ATAN2(T( 1)  -  XI ,YI ) 


39 


IuSroutxne  GAUSS' NRHS) 


\  HI*  sides 

msmjuPM  mm? *im  w 


c&rriml& 


101,111), NEONS 
♦  NRHS 


GAUSS  REDUCTION 
DO  150  I  *  2, NEONS 

—  SEARCH  FOR  LARGEST  ENTRY  IN  (X-l)TH  COLUMN 
ON  OR  BE LON  MAIN  DIAGONAL 

-  1 

IN)) 


IRax 

AMAX 


110 


130 

140 

.150 


??  HmAXJ.GE?,S|L'7UJ,IN)M  go  TO  110 
CONTINUE^ 

—  SNITCH  (I-l)TH  AM)  IMAXTH  EQUATIONS 


OT 


M.JI 


GO  TO  140 


mfoi1 

i«E,aw 

P 150  ^Z'5:TO 

JOjl^O  K  a.I.NTOT  . 


M IM.IM) 

*  AlJikl-  R*A<  IM.KI 
BACK  SUBSTITUTION 


NpNS,K  )/A(  NEONS,  NEONS ) 

ll10 


D0_200 


*  rrf 

J  *  IP 


ims* 

IuSrOUTINE  PRESS' X,U»CP) 


100 


sgsr 

u 

1“ 

L 

END 


FIND  PRESSURE  COEFFICIENT  CP  AT  IX,YIX)) 

Tl  100 )  »MI  100),N,XS,XF 
H 

T 

_  ,0 

l./l'TIl)  -  XJ«*2  ♦  Y»*YB) 


:  i:i 


*  (T(l)  -  X)*VF 
J  *  1  ,N 

«  l./l'Tt J4l)  -  X)«*E  ♦  YB*YB) 
«  (TIJ+1 )  -  XJ*VF2  . 

■  U  ♦  WJ)«'0F2  -  UF1 1 

■  V  -  M(  J  l*YB*' VF2  -  VF 

■  VF2 

2  -  U»U  -  V*V 


VF1) 
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SSSofliP/FCN/  ’  AX, TAU, NTYPE 
ORDINATE  OF  BODY  CONTOUR 
IF  J NTYPE  .EQ.  1)  THEN 


®B^!i°SE?S0M^^L?kk^?.S^r^NESS  RATI° TAU 


*  TAU  *  SQRTIX*(1.-Xn 


I  NO  IF 
RETURN 


a  AX  *  SQRT(X)*(  1-X) 


>ntype  •haxit*iout  •uo'w  1 


jMMON  T(  100  )  ,MI  1  1)^..^,... 

!«IIMATL?I^N8Elt}Soft06TS  °F  ,,X>  *  °  «"  ™E 

IN  THE  PARAMETER  LIST  THE  USER  MUST  PROVIDE: 

NXTOL  =  EXPONENT  FOR  X  TOLERANCE  VALUE 
NFTOL  =  EXPONENT  FOR  FUNCTION  TOLERANCE  VALUE 
NTYPE  =  SHAPE  TYPE  i  ELLIPTICAL  OR  AIRFOIL 
MAXIT  =  MAXIMUM  NUMBER  OF  ITERATIONS 

I0UT  =  J  W  KRff^lIttfc  RESULTS* 0NL?E',1CE  IM> 

THE  SUBROUTINEiCTAecfe!°ETAiLS  F°R  EACH  ITERAT10N 

THES^lSETMSIf^  GIVEN  N 

XS,  XF  a  CURRENT  X  VALUES  WHEN  TERMINATION  OCCUR 
UO,  U1  =  CURRENT  VELOCITY  VALUES  WHEN  TERMINATIO 


OF  fix)  a  0  USING  THE 


GUESSES.  GIVEN  N 


Subprogram 


IN  a  5 

XTOL  =  -NXTOL I 

FTOL  *  10. WM  -NFTOL  ) 
CALCULATE  INITIAL  SUES 


ing  program. 


CALCULATE  INITJAL^ GUESS  FOR  XS  AND  XF,  GIVEN  N 

XSPREV  =  10.JHU-6)* 

XF  =  1 .  -  XS 

SETFXRVALUE  Intmrn  AND  TRAILING  EDGES  FOR  SUBROUTINE  PRESS 

»f :  U 

ITERATE  TO  DETERMINE  THE  PROPER  LOCATION  FOR  XF 

FIRST  CHECK  TO  SEE  THAT  F«XF>  &  F<XFPREVJ  DIFFER  IN  SIGN 
SO  THAT  THE  METHOO  HILL  CONVERGE. 


SO  THAT  THE  METHOO  HILL  CONVERGE. 

EVALUATE  PREVIOUS  X  VALUE 

CALL  FINDM  I T ,M,N,XS .XFPREV 1 
^  *  '01  •  ^ 1 

EVALUATE  INITAL  GUESS  FOR  X  VALUE 
CALL  FINDM  I T ,M,N,XS,XF I 
CALL  PRESS  tXTE.uI.CP ) 

ft  xfprev’  yprev’  xf’  yf 

^RINTZ201 

ENolH 

COMPUTE  SEQUENCE  OF  POINTS  CONVERGING  TO  THE  ROOT 

DO  10  Kai,  MAXIT 

XR  a  (XFPREV  ♦  XF )/Z . 0 

FOR  THE  ELLIPTIC  CASE  XS  AND  XF  HILL  BE  EQUIDISTANT  FROM  THE  EDGES. 
IF  « NTYPE  .LT.  2)  THEN 
XS^a  ABS  IX.  -  XR) 

CALL* FINDM  (T.M.N.XS.XR ) 

CALL  PRESS  (XTE,Ul,CP) 

CHECK  0N*ST0PPIN6  CRITERIA 


xifej  a2fabsxx?pEe  V^RJ/2 . 0 
If  Iy°VJg:  o;oViixi!e«*2 


11  WRITE  I  IN, 6  )  K.XR.Y.DELTAXF 


4! 


IF  <Y*YFPREV  .GT.  0.0)  THEM 
XFPREV  *  Xft 
YFPREV  a  Y 

Hr  a  XR 

endyif“  y 

lTHi°MAXUWH  ITERATIONS  HAS  BEEN  EXCEEDED .HITHOUT  FINDING  A  ROOT. 


|X?|0UT4.EQ.  0) 

!  i  k 


WRlTi  I  IN.  1) 
MR  T  (IH>  2) 

mil  tin:  It 


so  ill \W  :|3;  1  ] »«  l«:  « 

3FOr'  THE  ELLIPTIC  CASE  XS  AFMD  XF  ARE  DETERMINED ,  SO  GO  BACK. 
IF 

EVALUATE  INITAL  GUESS  FOR  X  VALUE 

if  [OMR*  &TO)W XSPREV* YSPREV’  »• YS 

fefflfr01 

END  IF 

COMPUT|  SEQUENCE  OF  POINTS  CONVERGING  TO  THE  ROOT 
♦  XS  1/2.0 

m  press  \im%r 

CHECK  ON~sVoPPING  CRi TERIA 

8ihTRA^Als^VXgR,/2.0 

IE  >!*»*!  K*XR»Y rDELTAXS 


F  I Y  .EQ.  0.0)  lEXlT  »  J 

J  ivBWJmfBfF. 

F  « yE yIprev  'g1!  0?0)  then 

jam  =  ?* 


ELSE 

»  = ? 

40  C0Nt!nUE1F 

THE  MAXIMUM  ITERATIONS  HAS  BEEN  EXCEEDED, HXTHOUT  FINDING  A  ROOT. 
:  EXIT  a  4 

50  F  tiQUT  .EQ.  0)  RETURN 

i  I  Ill  \  !  mil  IS:  1  a 


F  I lEXlT 

E  iiigt 

40  r!tuRNX  T 


i  HI  Ip- 1|  iLr51' 


THIS  SHOULD  RETURN  MXTH  UO  NEAR  ZERO  AND  A  GOOD  VALUE  OF  XS.  _ 

I,®  itf®  .$#  jf$l ' 

i.  ;/;*8yo6  ^r5iCEerf8PiaD»!»a  fi&ALft.*?*’  therefore 
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Introduction 

The  purpose  of  the  PANEL  program  is  to  provide  an  analysis  of  the  aerodynamics  of 
NACA  four-digit  airfoils  and  airfoils  of  the  NACA  230XX  family  using  the  panel 
method.  This  program  has  been  modified  to  accept  arbitrary  airfoil  surface  coordinate 
input. 

Assumptions  and  Limitations 

This  program  is  limited  to  single-element  airfoils.  The  solution  is  determined  for  condi¬ 
tions  of  incompressible  and  inviscid  irrotational  flow.  Since  we  are  considering  an 
inviscid  fluid,  the  coefficient  of  drag  provided  in  the  results  is  for  the  induced  drag  com¬ 
ponent  only. 

Input  Description 

As  with  the  DUBLET  program,  there  are  very  few  input  values  required  for  this  simple 
program.  Their  description  and  program  variable  names  are  listed  below. 

NUPPER  -  Number  of  nodes  on  the  upper  surface. 

NLOWER  -  Number  of  nodes  on  the  lower  surface. 

X(I),Y(I)  -  Surface  coordinates.  These  may  be  entered  from  the  keyboard,  from  a  data 
file,  or  from  data  statements.  The  program  is  capable  of  generating  an  approximation 
for  airfoils  of  the  NACA  XXXX  and  230XX  series. 

ALPHA  -  Angle  of  attack.  (Angle  between  the  chord  and  the  freestream  velocity.) 
Input  Restrictions 

The  program,  as  written,  is  limited  to  100  total  surface  nodes.  This  may  be  modified  by 
changing  the  size  of  the  arrays,  however  only  a  very  complex  surface  should  require  that 
many  values  to  accurately  define  the  surface.  If  that  is  the  case,  a  more  sophisticated 
program  should  be  considered  for  the  investigation.  As  mentioned  above,  the  computer 
generated  approximations  to  airfoil  shapes  are  limited  to  the  NACA  XXXX  and  230XX 
series.  The  program  will  accept  values  for  ALPHA  up  to  90  degrees,  but  the  user  is 
cautioned  that  since  separation  usually  begins  at  about  10  to  15  degrees,  results  for  val¬ 
ues  above  15  may  be  suspect. 

Sample  Problem 

A  few  sample  problems  will  illustrate  the  use  of  the  PANEL  program.  The  first  run  will 
be  done  using  an  approximation  to  a  NACA  0012  airfoil  which  is  generated  by  the 
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program  using  the  information  associated  with  each  digit  in  the  NACA  number.  The 
second  run  will  analyze  a  NASA  LS(1)-0013  airfoil  using  a  set  of  data  statements  con¬ 
taining  the  airfoil  surface  coordinates.  These  statements  must  be  inserted  into  the 
proper  location  in  the  program  prior  to  running  it. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 

Next,  ensure  that  the  program  is  in  your  directory  by  typing 

DIR  [Return] 

and  viewing  the  files  for  PANEL.EXE  and  PANEL. OBJ.  If  only  the  PANEL. FOR  file 
exists,  you  must  compile  the  program  by  typing, 

FOR  PANEL  [Return] 

The  next  step  is  to  link  the  program  by  entering, 

LINK  PANEL  [Return] 

The  files  PANEL.EXE  and  PANEL. OBJ  will  now  exist  and  you  will  be  able  to  run  the 
program. 


Running  the  Program 
To  run  the  program,  type 

PANEL  [Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Figure  20. 


PROGRAM  PANEL 

SMITH-HESS  (DOUGLAS)  PANEL  METHOD 
FOR  A  SINGLE -ELEMENT  LIFTING  AIRFOIL 
IN  TWO-DIMENSIONAL  INCOMPRESSIBLE  FLOW 

DO  YOU  WISH  TO: 

1)  USE  AIRFOIL  SURFACE  COORDINATE  DATA  VALUES. 

2)  HAVE  COMPUTER  GENERATE  AN  APPROXIMATION 
FOR  A  NACA  XXXX  OR  230XX  AIRFOIL  SECTION. 

3)  QUIT  THE  PROGRAM. 

ENTER  1,  2,  OR  3 


Figure  20.  Initial  Screen  for  Program  PANEL 


45 


For  the  first  case  we  will  have  the  computer  generate  an  approximation  for  the  shape 
of  a  NACA  0012  airfoil,  consisting  of  20  surface  panels,  using  an  algorithm  contained 
in  subroutine  NACA45.  The  angle  of  attack  of  the  onset  flow  will  be  six  degrees.  To 
use  the  approximation  method,  enter 

2  [Return] 

Respond  to  the  request  for  the  number  of  surface  data  points  by  entering 

20  [Return] 

Confirm  the  number  of  surface  data  points  you  desire  by  entering 

1  [Return] 

Although  the  program  will  allow  a  different  number  of  upper  and  lower  surface  data 
points,  it  is  recommended  that  you  try  and  keep  them  equal.  An  unequal  number  of 
nodes  yields  trailing-edge  panels  of  unequal  length,  which  lowers  the  accuracy  of  the 
approximation  to  the  Kutta  condition.  Respond  to  this  question  by  entering 

1  [Return] 

The  next  question  asks  for  the  NACA  number  of  the  airfoil  you  are  considering.  For 
this  case  we  will  look  at  the  NACA  0012,  so  enter 


0012  [Return] 

The  screen  should  now  look  like  what  is  shown  in  Figure  21. 


ENTER  NUMBER  OF  SURFACE  DATA  POINTS  DESIRED 

20 

NUMBER  OF  SURFACE  DATA  POINTS  TO  BE  GENERATED  = 

20 

IS  THIS  VALUE  CORRECT?  (YES=1,  NO=2) 

1 

ARE  THE  NUMBER  OF  UPPER  AND  LOWER  SURFACE 

DATA  P0INTS( NODES)  EQUAL?  (YES=1,  NO=2) 

1 

INPUT  NACA  NUMBER,  ANY  FOUR-DIGIT  OR  230XX  SERIES 

0012 

INPUT  ALPHA  IN  DEGREES  (ALPHA  >  90  TO  EXIT  LOOP) 

Figure  21.  Screen  Showing  Data  for  Computer  Generated  Airfoil 
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The  program  is  now  ready  to  perform  its  calculations.  The  final  piece  of  information 
required  is  the  angle  of  attack,  ALPHA.  By  entering  values  of  ALPHA  that  are  less  than 
90  degrees,  you  may  look  at  as  many  different  angle  of  attack  cases  as  you  desire.  En¬ 
tering  a  value  for  ALPHA  that  is  greater  than  90  degrees  will  cause  the  program  to  stop 
the  present  airfoil  analysis  and  provide  you  with  a  choice  of  exiting  the  program  or  ex¬ 
amining  another  airfoil.  For  this  case,  respond  to  the  question  by  entering 
6  [Return] 

Following  entry  of  the  angle  of  attack,  the  program  begins  the  solution  process.  Values 
scroll  up  the  screen  and  are  simultaneously  being  written  to  the  data  files.  When  the 
solution  is  complete  you  should  see  the  screen  shown  in  Figure  22. 

PROGRAM  PANEL  RESULTS  HAVE  BEEN  WRITTEN  TO  FILES: 

PB0DY.DAT  :  BODY  SURFACE  COORDINATES 

PPRES.DAT  :  SURFACE  PRESSURE  DISTRIBUTION 

DO  YOU  WISH  TO: 

1)  MAKE  ANOTHER  RUN  OR 

2)  END  THIS  SESSION 
ENTER  1  OR  2. 

Figure  22.  Run  Completion  Screen 

Say  you  have  finished  your  analysis  of  the  NACA  0012  at  this  point  and  you  want  to 
examine  another  airfoil.  Enter  a  value  of  ALPHA  that  is  greater  than  90  degrees,  such 
as 

99  [Return] 

A  new  screen  will  be  presented  and  the  program  now  asks  if  you  want  to  make  another 
run.  Enter 

1  (Return] 

This  time  the  sample  problem  will  examine  a  NASA  LS(1)-0013  whose  coordinates  have 
been  entered  as  data  statements  in  the  program.  You  should  now  be  back  at  the  initial 
screen  and  it  should  look  like  Figure  20.  Since  you  will  be  using  actual  airfoil  coordinate 
data  values,  enter 
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1  [Return] 

The  screen  shown  in  Figure  23  now  presents  you  with  the  three  choices  available  for 
entering  the  airfoil  surface  coordinate  data  values.  You  will  be  using  the  data  state¬ 
ments.  so  enter 

3  (Return] 


DO  YOU  WISH  TO  ENTER  THE  SURFACE  COORDINATE  VALUES: 

1)  FROM  A  DATA  FILE. 

2)  FROM  THE  KEYBOARD. 

3)  USING  DATA  STATEMENTS  ALREADY  ENTERED 

IN  THE  MAIN  PROGRAM.  **  NOTE  **  THIS  REQUIRES 
THAT  PROGRAM  BE  MODIFIED  IN  ADVANCE  BY  MOVING 
DATA  STATEMENTS  TO  THE  CORRECT  LOCATION. 

ENTER  1,  2,  OR  3.  (FOR  PREVIOUS  MENU  ENTER  4) 


Figure  23.  Menu  for  Surface  Coordinate  Data  Entry  Method 


The  number  of  data  points  has  been  entered  via  the  data  statements,  therefore  you  are 
not  asked  that  question  for  this  case.  For  the  angle  of  attack,  again  enter 

6  [Return] 

As  you  saw  in  the  previous  example,  values  scroll  up  the  screen.  These  solutions  will 
be  appended  to  the  solutions  for  the  NACA  0012  airfoil.  The  data  files  are  overwritten 
only  when  a  new  session  (from  the  DCL  prompt)  is  started. 

The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 

2  [Return] 

This  completes  the  sample  problems  for  the  PANEL  program.  The  data  files  created 
by  these  sample  runs  and  the  listing  for  the  PANEL  program  are  on  the  following  pages. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 
Sample  problem  1:  NACA  0012  Airfoil 


DATA  FILE: 

BODY  SHAPE 
X 

1.  0000 
0.9755 
0. 9045 
0. 7939 
0.  6545 
0.5000 
0. 3455 
0. 2061 
0. 0955 
0. 0245 
0.0000 
0. 0245 
0.0955 
0.  2061 
0. 3455 
0.5000 
0. 6545 
0. 7939 
0. 9045 
0.9755 


PBODY.  DAT 


Y 

0.  0000 
-0.  0034 
-0. 0129 
-0.  0261 
-0. 0404 
-0. 0526 
-0. 0594 
-0. 0577 
-0.  0460 
-0.0259 
0. 0000 
0. 0259 
0. 0460 
0.0577 
0.  0594 
0.0526 
0. 0404 
0. 0261 
0.  0129 
0.  0034 
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Sample  problem  2:  NASA  LS(1)-0013  Airfoil 


BODY  SHAPE 
X  Y 


1. 0000 

0. 0000 

0. 9000 

-0.0116 

0.  8000 

-0. 0265 

0. 7000 

-0. 0420 

0. 6000 

-0. 0546 

0.  5000 

-0. 0621 

0. 4000 

-0. 0645 

0. 3000 

-0. 0632 

0. 2000 

-0. 0575 

0. 1000 

-0. 0454 

0.0753 

-0. 0407 

0. 0500 

-0. 0346 

0. 0247 

-0.0261 

0. 0126 

-0.  0194 

0. 0000 

0.  0000 

0. 0130 

0.0189 

0.  0250 

0.  0258 

0. 0499 

0. 0347 

0.0750 

0. 0408 

0. 1000 

0. 0454 

0. 2000 

0. 0575 

0. 3000 

0. 0631 

0. 4000 

0. 0643 

0. 5000 

0. 0620 

0. 6000 

0.  0545 

0. 7000 

0.0418 

0. 8000 

0. 0264 

0. 9000 

0.0117 
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Sample  problem  1:  NACA  0012  Airfoil 

DATA  FILE:  PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  =  6. 000 


PRESSURE  DISTRIBUTION 
X  CP 


0. 9878 

0. 2339 

0. 9400 

0.  1316 

0.  8492 

0.0728 

0. 7242 

0. 0362 

0.5773 

0.0155 

0.4227 

0.0180 

0. 2758 

0. 0680 

0. 1508 

0. 2129 

0. 0600 

0.5547 

0.0122 

0. 9318 

0. 0122 

-2.4438 

0. 0600 

-1.  7390 

0.  1508 

-1.  1500 

0. 2758 

-0.8021 

0.4227 

-0.  5537 

0.5773 

-0. 3638 

0. 7242 

-0.2101 

0. 8492 

-0.0717 

0. 9400 

0.0706 

0.9878 

0.  2339 

CD  =  0. 00721  CL  *  0. 72235  CM  =-0.  18377  CMC4  * 


0. 00398 
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Sample  problem  2:  NASA  LS{1)-D013  Airfoil 


DATA  FILE:  PPRESS. DAT 

ANGLE  OF  ATTACK  IN  DEGREES  =  6.000 


PRESSURE  DISTRIBUTION 
X  CP 


0. 9500 

0. 1566 

0. 8500 

0.  0713 

0.  7500 

0. 0003 

0. 6500 

-0.0572 

0.5500 

-0.0700 

0. 4500 

-0.0332 

0. 3500 

0.0239 

0.  2500 

0.  1047 

0. 1500 

0.2627 

0.0877 

0. 3930 

0.  0627 

0.  4956 

0.0373 

0.6714 

0.0186 

0.  8801 

0. 0063 

0. 7672 

0. 0065 

-2. 2382 

0.0190 

-2.6638 

0. 0375 

-1.  9526 

0. 0625 

-1.5750 

0. 0875 

-1.  3623 

0.  1500 

-1.0520 

0. 2500 

-0. 8380 

0.  3500 

-0.  7090 

0. 4500 

-0. 6245 

0.5500 

-0.5094 

0.  6500 

-0. 3375 

0.  7500 

-0. 1369 

0. 8500 

0. 0365 

0. 9500 

0. 1566 

CD  *  0.  00324  CL  «  0.  69366  CM  —0.  16505  CMC4  * 


. 00750 


PROGRAM  PANEL  LISTING 


PROGRAM  PANEL 

Bv  ja-  cahpb£u  <jut  •*> 


PROGRAM  PANEL 


SUBROUTINES  QUERY  AND  CLRSCRN  AODED  TO  ORIGINAL  PROGRAM. 

M  IN  L1EU  * THE  EXEC  FILE 


ii 

ii  T 

f  i rnjjjjPjMij « 

SvSS 

Jr; 

1M 

*1* 

;  J  i)  TM\  i 

~ "TCi 

°F  ™1S 

u 


{imInIiON  NAN|(100»,X(100I,YI100I 

»**  NOTE:  IF  YOU  CHANGE  SIZE  OF  X  AND  Y,  CHANGE  N  BELOM  ALSOI  **« 
DATA  X.  Y _/100*0 .  ,100*0 . /  ....  _ 


TA  X,  Y  /100*0. ,100*0./ 


( 100 ) >NFLA6 


mm 


mw 


8  W,W- 

IlSbip' 

c  ‘IMS0{l!l■,fei5sl:isw,, 


W 


BY  J.A.  CAMPBELL  IJUL68) 


,?«Kd8iSfK^r^«s8?l  W^’ALPHA » 


c208al 


.  _r3RARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 
Bd  t  CLRSCRN 

NT  *,  '  PROGRAM  PANEL  RESULTS  HAVE  BEEN  HRITTEN  TO  FILES:1 

0 :: :  mm  \ 

PR  NT  * 

PR;  NT  * 

:  OPTION  TO  MAKE  ANOTHER  RUN 

im :, 

Eli  *: 

PRINT  #,  _ 

CALL  QUERY  (NANS)  __ 

IfTnANS  .EQ.  1)  CO  TO  60 

1000  FoRnATI /////,'  INPUT  ALPHA  IN  DEGREES  (ALPHA  >  90  TO  EXIT  LOOP) 
END 

..*»#* . . . . . 

SUBROUTINE  INDATAI X  »Y ,N ,NLOHER , MJPPER ) 


w®"1' 


rEiip'??tSISoS.°u<ra)f""lT,iKnioN 

USER 


PLUS 


f|#^^,I,ST 

ARACTER*20  INFILE 
TEGER*2_XNFILE_SI. 


r  _OMHON  /PA^S«S8I?J^^MNTHE‘ 
CALL.LJBRAR^gOUTINE  TO  CLEARTHE  SCREEN, 

*  • 

,  '  PROGRAM  PANEL 

.LAS) 


ATUS 

ZE 


iatm  k 

2)  HAVE  COMPL 
FOR_A_NAC| 


100 )  ,NFLAG 
THEN  PRINT  HEADER 


. JfflWK'' 

*HT.S*I,a^ToJ"l  ',"OOMM  ' 


FROM  DATA  FILE,  KEYBOARD  OR  DATA  STMTS  ** 


SURFACE  COORDINATE  VALUES: 


12  READ  I5,» 


i  m 


M^rec^l^ItISn.' 


evil 


MENU  ENTER  4) 


new  I9>«  iruM, 

IF  1 1 FLAG  .EQ.  4)  GO  TO  B 
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on 


15 


JHHHt 


PRINT  «>n^MT|R  NUMBER  OF  DATA  POINTS' 

»s?wa»,8fuj»T»  POINTS  TO  BE  ENTERED  *' 
HfU  THIS  VALUE  CORRECT?  (YES-1,  N0«2)' 

CFS'KVMO.  ,N,„  ROUTINE  — 


3. 1 


60  TO  100 

TER  THE  NUFBER  OF  DATA  POINTS  (NUMPTS) 


>NUHPTS 


***  DATA  FILE  READ  ROUTINE 

RBbftK #Y  "• 

20  STATUS 


C  CHE 


ENI 

C  OPEN  F 
OP 


WM  HCM*. I  RfJsM  ;«• 
5  7?NflL1FETQHE'^^,E4Sjl  MSS'twU'SWeIIIt 

mfc“lHsnW  ^:^F?LE.SI2E,,  EXIST  .  EXIST) 
PRINT  * 

PRINT  *,  •  THAT  FILE  NAME  DOES  NOT  EXIST.' 

PRINT  *,  '  (ENTER  999  TO  RETURN  TO  MENU).' 

PRINT  * 

GO  TO  20 

i  ¥tl 


FOR  SURFACE  COORDINATE  INPUT 
( UNIT =15  * 

FILE=  INFILE, 


2  STATUS*  tOLO ’  I 
DO  25  I  =  1 .NUMPTS 

READ  (3,*)  X(I  ),Y(IJ 
PRINT  1010,  X(I),Y(1> 


1010  FORMAT! F10.4.F10.4) 
GO  TO  100 


c  «?**.RPyTJN^OxENTER  £ATA  FROM  THE  KEYBOARD  ***** 


30 


C  ***** 
50 


^z^rnGVMM 

*********  _  „  „ 
^ALLTCLRSCRNCALCULATE  SHAPE  ’  SIVEN  NACA  NUMBER  ***** 

PRINT  *, "p^NTER  NUMBER  OF  SURFACE  OATA  POINTS  DESIRED' 

^sfea"1 1NPUT 

PRINT  *,'  NUMBER  OF  SURFACE  OATA  POINTS  TO  BE  GENERATED  = ' .NUMPTS 
PRINT  *,'  IS  THIS  VALUE  CORRECT?  <YES*1,  NO=2)' 

fPMj), 
ifcrNS°«' 
ipT)Ij*) 


[f  NUMP?i  .NLOHER  ,NUPPER ) 


:  Kaca/188*- 


m 

IPTMAX 
TAU 

OI^.-STSl: 


INPUT  NACA  NUMBER,  ANY  FOUR-DIGIT  OR  230XX  SERIES' 
NACA 


EPSMAX 

*°9?  STOP™ 
END 


.  AC A/lOO  -  10*IEPS 

NACA  -  1000*IEPS  -  100*IPTMAX 

TMAX*6*1 

A  -8i  Return 

5 


.  6595*PTMAX**3 


SUBROUTINE  NODESI NUMPTS, NLOHER ,NUPPER ) 


CALCULATE  NLOHER  AND  NUPPER  FOR  LATER  USE  *** 

p$  h  ss.wims.mmgR  ssk*- 

??*?»!  J}.  II  THEN 
NLOHER  *  NUMPTS/2 
NUPPER  >  NLOHER 


ELSE 


^CkRSCRN 
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20 


B® 


PRINT  *,  '  TOTAL  NUMBER  OF  SURFACE  POINTS  *',  NUMPTS 
PRINT  * ,  ' - - - - -* 

p||HT,*,  •  INPUT  NUMBER  OF  LONER  SURFACE  POINTS,  NLOHER1 
READ  I5>* )  NLOHER 

PRINT  *,  '  INPUT  NUMBER  OF  UPPER  SURFACE  POINTS,  NUPPER1 
READ  15,*)  NUPPER 
NTEST  *  NLOHER  +  NUPPER 
IF  INTEST  .NE.  NUMPTS)  THEN 

PRINT  *,  *  OKAY .TRY  IT  AGAIN  EINSTEIN.  REMEMBER  ADDITION?1 
PRINT  JJ,  1  NLOHER  ♦  NUPPER  MUST  EQUAL 1  , NUMPTS 
GO  TO  20 
;N0  IF 


SUBROUTINE  INPUT(A,B,NI 
[NJEGER  N, 


10 


PER  LINE  AS  DESIRED' 


20 

30 

MHHt 

35 

**** 

40 


C 

C 


IHENSION  AIN),  BIN) 

!h8  cAeck'IhI  }npu},N 

■  VT^4«TPi®» 15,1  x  VALUES:Vlx,21,‘“'n 

P(uNTT*»aA1i  HE  VALUES  CORRECT?  I  YES* l,  N0*2)‘ 

IP  Pji’.$.  1)  GO  TO  1 
CUE  THE  USER  TO  INPUT 
PRINT  *» “ENTER  Y  VALUE 

m  cAeckWh!  ^nput  1 

PRINT  40,  N 

FORMAT  I /IX, 'TABLE  OF*.  13,*  Y  V 
PRINT  30,  IBIJ),  J=1,N) 

PRINT  *» ' ARE  THE  VALUES  CORRECT? 

READ  *,  K1 


10 

Y  VALUES 

S  AS  MANY  PER  LINE  AS  DESIRED' 


VALUES:  V1X, 211  '  =  '  )) 
I YES=l,  NO* 2  ) ' 


BjfiM  GT- 11 60  T0  35 

^END^ 

^SUBROUTINE  SETUP! X  ,Y  , N  , NLOHER  , NUPPER  i 

K#*# a******************* - - - 

COMMON* /b6d/NN0DTQT .COSTHE 1 100  )  .SINTHEI 100 ) ,NFLAG 

common  /skal/n|er5;ymli 


siir 

YMULT 


*  3 


200 


926] 


l^MULT 


SET  COORDINATES  OF  NODES  ON  BODY  SURFACE 


.  90 
'100 


110 


tm  ????ioooj 

NPOINT  =  NLOHER 
“IGN  *  -1.0 

m  kbiJMr 
RACT  = 

F  INFLAG  YEQ.  1)*G0  TO  90 

«tt  K8)«fUrf:?l!!iv,?" 

isuh?i,wm 


HI 

Pl._„ 

CONTINUE 
NPOINT  i^N^PPER 

NSTART  *  Ni.8HER 
CONTINUE 

NOOTOT*  NLOHER  ♦  NUPPER 

SET  SLOPES  OF  PANELS 

8  200  5  5.MP*- 

*  UStiiJx 


fooo 

1010 


•  XI 

•  Yl 

(LX 

p 

m 

i 

iY*DY ) 


DIST 

SINTHEI  I) 

8ontinue 

FORMAtV/////,;.BOPY  SHAPE  •  ,//,4X,  ‘X’  ,9X,'Y',/) 
FORMAT  1 1 


RETURN 
END 


F10.4,F10.4) 


SUBROUTINE  POOYI 2 ,S IfN,XI,YI ) 

RETURN  COORDINATES  OF  POINT  ON  THE  BOOY  SURFACE 
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90 


C 

C 

C 


3: 


FOR  LONER 

ST3^*K.T8i™’i'?r,?T‘ 

=  CAMBER  ♦  SIGN*TRI - 

_TURN 
END 


SURFACE 

SURFACE 


CK*COS( BETA ) 


1 HHHf 

#  ********* 
sya*oyuN£ 

* 

! 

NACA45I  Z,T 

nummi 

HURRA, 

HICK  ,1 

CAMBER*BETA*l<,,ll,,*,llni,,,,,1,,l,*,l,,,<,,*,<,,,,**1<* 

1 

COMMON  /PAR/  NACA 

i,TAU 

M  ^A  ^A  JA  JA  H  M  M  ^A  M  H  M  ^A  I 

1,  EPSMAX,  PTMAX 

M2S  OTPttffl  SlRFOIL 


TH 

k 


hack 

ICK 


LT-,&J2,' 


>  5. 


V>°-  Z*(  .226 


♦  Z*l .3537 


100 


150 


mM&rra :  ir* 


,MBER  '»  EPSMAX/(  l..-PTMAXl**2«(  |i(  ♦ 


ptSax  !-R™««i- 


_  _  -  .2969*SQR?I_. 

♦  -  Z*l .2843  -  Z*.igi3)))) 

IF  IEPSMAX  .EG.  8.01  GO  TO  130 
IF  INACA  -ST.  9999 )  Gy  TP  140 
IF  IZ  .GT.  PTMAX )  £0 ™0 

CAMBER  *  EPSMAX/r . 

DCAMDX  «  2 . *EPSM 

GO  TO  120 
* AMBER  « 

AMOX  *  2. *EPSMAX/l 1 . -PTMAX )** 

TA  =  AT AN) DCAMDX t 

-TURN 

AK3ER  =0.0 
“TA  =  0.0 

-TURN 

IF  IZ  .GT.  PTMAX)  GO  TO  150 

H  =  Z/PTMAX 

CAMBER  =  EPSMAX*W*IIW  -  3.  )*W  ♦  3.  -  PTMAX) 

DCAMDX  =  EPSMAX*3.*W*( 1.  -  N l/PTMAX 
GO  TO  120 

CAMBER  =  EPSMAX*! 1.  -  Z) 

DCAMDX  =  -  EPSMAX 
GO  TO  120 
END 

__  _ _  _ 

Sygg^IMEKCOFISWSINALF,COSALF,X,Y,N,Ni.WER.NUPPERir 
SET  COEFFICIENTS  OF  LINEAR  SYSTEM 

0 ) »SINTHE ( 100 )  >NFLAG 


Z) 


REAL  XI N), YIN) 

tmm  /»&/  OTMTOH" 

WinT’ 


COMMON  /COE. 
COMMON  /NUM/  ri, 
KUTTA  =  NOOTOT 


INITIALIZE  COEFFICIENTS 


DO  90  J  « 
Al  KUTTA,  J) 


1, KUTTA 

=  0.0 


SET  VN  =  0  AT  MID-POINT  OF  I-TH  PANEL 

120  I  «  1 .NOOTOT 
6  =  .5*1X1 1  )  ♦  XI  1*1)1 

=  .5*1 Yl I )  ♦  Yl 1*1 ) ) 

1  *  "  0.0 

FIND  CONTRIBUTION  OF  J-TH  PANEL 
j, NOOTOT 


DO 
XMI_ 

YMID 
All, KUTTA)  = 


100 


DO  110  J  _ 

man  =  Hi 

«-u  •e?-xSi,d  -  x?3»T0  100 

=  XMID  -  X(J*1) 

=  YMID  -  YIJ) 

=  ^SlSgT^iW _  _ 

*  ATAN2I  DYJP*DXJ-DXJP*DYJ  ,6l 
»  COSTHEi  I  )*COSTHEI  J  )  ♦  SlNTHI 
>  SINTHE 1 1  )*COSTHE  I J )  -  COSTHI 

*  PI 2INV*I FTAN*CTIMTJ  ♦  FLOG*: 
«  PI2INV*!  FLOG*CTIMTJ  -  FT  AN*! 

wmH.wwn  Tl? 


?srYj 

:  imm: 


n 


NOOTOT ) )GO  TO  110 

—  IF  I-TH  PANEL  TOUCHES  TRAILING  EDGE, 

AOD  CONTRIBUTIONS  KUTTA  CONDITION 

Al KUTTA, J )  =  Al KUTTA, J)  -  B 
AUCUTTA^KUTTA )  «  Al  KUTTA, KUTTA)  ♦  AII,J) 

C  FILL  IN  KNONN  SIDES 

120  CONflNul**11  *  SINTHEI Z  )*COSALF  -  COSTHEI I  )*SINALF 

Al KUTTA, KUTTA+1)  =  -  ICOSTHE(l)  *  COSTHEI NOOTOT ) >*COSALF 


110 
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non 


-  (SINTHE(l)  ♦  SINTHE ( NOOTOT ) IftSINALF 

IHHHHI 

SUBROUTINE  GAUSS! NRHS) 


RETURN 
END 


9k 


l 

=  NUMBEI 


SIDES 


wkmkm  in 

ftf"" 

NTOT  *  NEONS  ♦  NRHS 
GAUSS  REDUCTION 
DO  150  I  *  2, NEONS 

--  WBie§NWSiig58XLIN  ,I-1,TH  C0LUMN 

-  1 


=  IM 


IN 
IMAX 

AMAX  =  ABS(  A(IM.IM)) 

jfj.Imax^.ge.  ’aI^JJ.IM))) 

*  ABS<  AIJ,IM) ) 


I  MAX 
AMAX 
110  CONTINUE 


GO  TO  110 


—  SNITCH  (I-l)TH  AND  IMAXTH  EQUATIONS 
F  (IMAX  _.NE._.IM) _ GO  TO  140 


AT  I  AIMA  <  A*  1  r 

DO  150  J  «  iM.NTOT 
TEMP  =  A(IM,J) 
AIIM.J)  =  A! IMAX, J) 
A!  IMAX, J)  *  TEMP 


130  CONTI&I^ 


I^SE!^?HUOT?oS§°M 


140  DO  150  J  -  I, NEONS 

R  =  A!  jIlMI/AdM.IM) 

DO  150  K  *  I, NTOT  _ 


150 


DO  150  K  *  I, NTOT 
A!  J,K  )  a  A(  J,K  )  -  R*A(IM,K) 

BACK  SUBSTITUTION 

X?n|oNS  ,K  t‘=^NEQNS  ,K  )/A(  NEONS  , NEONS  ) 

ftho  ^E§Sfn-L 


A?i!m  a  A(|V)E?<f(I,J)»A<'f,K) 
|||f|riuE= 


SUBROUTINE  VELDIS! SINALF .COSALF ,X ,Y ,N,NLOHER ,NUPPER, ALPHA ) 
inhhhhhhhhhhhhhhhhhhuhhhhhhhhhonhhhhhhhiihhhhhhhiihhhhhhhhhhhhhhhuhhhw 

COMPUTE  AND  PRINT  OUT  PRESSURE  DISTRIBUTION 

S'  Wtaiifflwwp 1  ,SI"™" 100 1  ■HrLK 


COMMON  /CPD/  C 
COMMON  /NUJV  P 
-"ION  /SKAL/ 


Alpha 


rijim  luvu.  AkrnA  _ 

Hfflf  i^10001  ALPHA 


50 


NRITE  (12,1005) 

RETRIEVE  SOLUTION  FROM  A -MATRIX 

DO  50 

3(1 1 

AMMA  «  A( KUTTAjKUTT A+l ) 

FIND  VTAND  CP  AT  MID-POINT  OF  I-TH  PANEL 
D0_130  I  ai^NOOTOT 


VTANG 


i 

»  AIKUTTA.KUTTA 

FIND  VTAND  CP  A 

I  a  1, NOOTOT  . 
a  .5*(X(J)  ♦  X(I*1)) 
*  .5J(Y(I)  ♦  Y(  !♦!  )  I 
■  COSALF«COSTHE(  I )  ♦ 


SINALF*SINTHE  ( I ) 
ADD  CONTRIBUTION  OF  J-TH  PANEL 
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lU'JU  u  uuuuuo  uuuuuuuuuououuuuu 


?L0120 


„ _  J  *  1»NODTOT 

/LOG  g.o 

FT  AN  a  PI 

IF  I J  .EQ.  1 1  GO  TO  100 


100 


120 


til 


DXJ 

gxjp 

DVJ 
uYJP 

m 

pH 

§TANG  a 
CONTINUE 


XMID  -  XI  J) 
a  XMID  -  XIJ+l) 
a  YMID  -  Y(J) 

=  YMIO  -  Yl J+l ) 

=  . 5* ALOGI  I  DXJP*DXJP+DYJP*DYJP  >/( DXJ#OXJ+pYJ*DYJ  >  ) 
a  AT AN2 I DYJP*DXJ-DXJP#DYJ,DXJP*DXJ»pYJP*DYJ) 

=  COSTHEI I  )*COSTHEIJ  )  ♦  SINTHEI  I  l*sr “  ' 
a  SINTHEI  I  )*COSTHEIJ  >  -  COSTHEI  I  )«SI 
a  PI2INV*IFTAN*CTIMTJ  ♦  Fl8g»St!mt3) 
PI2lNV*(FLQG*CTIMTJ  -  FTAN*STIMTJ) 

VTANG  -  B#Q( J )  +GAMHA»AA 


WRITE  I 

^ORMAtV?////,1  ANGLE  OF  ATTACK  IN  DEGREES  ■  ' ,F8. J,/) 
FORMAT  I  // »  *  PRESSURE  DISTRIBUTION1  ,//,4X, 'X1 ,8X, ’CP 1  ,, 
FORMAT) Flo. 4, F10 .4 ) 

SUBROUTINE  FANOMI SINALF ,COSALF ,X ,Y  >N>NLOHER , NUPPER  ) 


COMPUTE  AND  PRINT  OUT  CD, CL, CM 


REAL  X(N).YIN) 

COMMON  /BOO/  NODTOT, COSTHEI 100), SINTHEI  100 ),NFLAG 
COMMON  /CPD/  CPI  100) 


100 


CFX 
CFY 
CM 
CMC4 
DO  100 
XMID 
YMIO 
DX 
DY 
CFX 
CFY 
CM 
CMC4 
CONTINUE 
CD 
C 


6.0 


J;8 

i  xi  wii 

=  .5*1  Yl  I I  ♦  VlI+lM 
=  XII+1)  -  XII) 

=  YII  +  1)  -  Yl  I  ) 
a  CFX  ♦  CPI  I  )*0Y 
=  CFY  -  CPI  I  )*DX 
a  CM  ♦  CPU  )*I0X* 


.  _X*XMI0  ♦  0Y*YMI0  ) 
a  CMC4  +  CPI  I  )*l  DX*I  XMID-0 . 25  )  *  DY*YMIO) 


1000 


CFX*COSALF  ♦  CFY*SINALF 
CFY*COSALF  -  CFX*SINALF 


+'  CMC4  a>,F8.5) 
RETURN 
END 


CL  a'.FB.B,1 


CM 


,F8.5, 


LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 

1ST AT  a  LIB$ERASE_PAGE  11,1) 
RETURN 
END 

SUBROUTINE  QUERY! NANS  I 


JTEST=0 
Ntinue 
(NOTEST  .GT 
£RINT  * 


0)  THEN 

- TER  VALUES  ARE  NOT  VALID. 1 

ENTER  A  VALUE  OF  1  OR  I. 1 


E,  REMOVE  COMMENTS 
-RAM. 


PRINT  *,  1  PLEASI 

rIaD  I  bV^IH  )NANS 
RETURN 
ENO 

IfJCXMJflflfM 

DATA  VALUES  FOR  VARIOUS  AIRFOILS.  TO 
AND  PLACE  AFTER  COMMON  CARDS  IN  MAIN 

MW*********************************** 

FOLLOWING  DATA  IS  FOR  THE  NACA  0006  AIRFOIL  *** 

DATA  NUPPER,  NLOMER  /14,14/ 

. DATA  I XI I )  » 1 *1 , 28  )/l . 0 , . 90 , . 80 , . 70 , . 60 , . 50 , . 40 , . 50 , . 20 , . 10 , 

1  0.075, 0.05,0. 025, 0.0125,0. 0,0. 0125, 0.025, 0.05, 0.075, 

2  0 . 10 , . 20 , • 30..40, . 50 , • 60 , . 70 , , 80  * . 90/ 

•  NOTE:  VALUE  FOR  TRAILING  EDGE  IS  SET  TO  0.000  VS  ACT  THICKNESS  * 
DATA  I Yl I ) ,1*1,20 )/- . 00063,- . 00724, - . 01312 , - . 01832 ,- .02282, 

1  - . 02647 ,- . 02902 , - . 0*001,- . 02869, - . 02341,0 . 0 , . 02341 , . 02869, 

2  .03001,. 02902, .02647, .02282, .01832, .01312 , .00724/ 


***  FOLLOWING  DATA  IS  FOR  THE  NACA  0012  AIRFOIL  *** 
DATA  NUPPER,  NLOWER  /14,14/ 
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ft******************** #OOTM 


SS 

1  ::8lB:::8fi“4:S:8“8iife;fo'!t|,iii|h;:8ilS8::iS!|??’ 

2  . 05737 , . 06002 , . 05803 , . 05294 , . 04563 , . 03664 ,.02623,. 01446/ 


***  F 


LOWING  DATA  IS.FOR  THE  NASA  LS(  11-0013  AIRFOIL  <hh» 


WH»  NOTE 
DATA 


WHHHHHHHHHHHHHHUHHHHKHCiH 

USER  INSTRUCTIONS  FOR  MANUAL  OATA  ENTRY: 


poinU.’  WV^mRT5gELS5$}teW8A?[iASRl8^  Wife. 

NOTE: 


T 


THE  P^0gIaMEWILLCALlBwNf5ISCQRR^T?QN°IF  Jsn^ EftSoSI^Sl0 ‘ 
!JADI.-..A.JA|LE_OF.  X  COORDINATES  is  displayed  for  the  user 

Y  TO  A  LINE  AS  Dl 

5ispJayedyfSrr?hi 


to  check  his  input. 


THE  PROGI 
MADE.  A 
TO  CHECK 


ENTER  Y  COORDINATES  AS  MANY  TO  A  LINE  AS 
RAM  WILL  ALLOW_FOR. CORRECTJ—  - 

TH?kEiPE 


_  Y  COORDINATES  IS 

INPUT. 


RI°- 

R 


.  (4)  PROGRAM  AL 

SIMPLY  FOLLOW  CUINI 


FOR  AS  MANY  RUNS  AS  THE  USER  DESIRES 


i<5°sf<JUENCE7 


R 

* 

II 

K 

* 

« 

ft 

« 

* 

II 

« 

II 

H 

II 

n 

II 

ft 

* 

* 

II 

II 
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Introduction 

The  purpose  of  the  YORLAT  program  is  to  provide  an  application  of  the  vortex  lattice 
method  for  the  determination  of  the  lift  distribution  of  a  flat  rectangular  plate.  This 
method  is  based  on  a  distribution  of  discrete  horseshoe  vortices  over  a  wing  surface  that 
has  been  divided  into  a  finite  number  of  panels.  A  system  of  linear  equations  is  devel¬ 
oped  for  the  vortex  strengths  on  the  panels  and  solved  by  matrix  methods. 

Assumptions  and  Limitations 

This  program  is  limited  to  flat  rectangular  wings.  The  program  divides  the  wing  up  into 
panels  using  either  a  uniform  grid  or  cosine  spacing  method.  The  cosine  spacing  algo¬ 
rithm  provides  a  finer  grid  near  the  wing  tips  where  the  pressure  distribution  over  the 
wing  is  rapidly  changing.  Both  methods  incorporate  an  enhancement  whereby  the  pan¬ 
els  do  not  extend  to  the  wing  tips,  but  only  to  a  distance  of  5:4  from  the  tips.  The  value 
of  5  is  the  spanwise  width  of  a  wing  panel. 

The  solution  is  determined  for  conditions  of  incompressible  and  inviscid  irrotational 
flow.  Since  we  are  considering  an  inviscid  fluid,  the  coefficient  of  drag  provided  in  the 
results  is  for  the  induce  '  drag  component  only.  This  program  is  intended  to  be  used  for 
the  analysis  of  flat  rectangular  wings  with  low  aspect  ratio.  High  aspect  ratio  wings  are 
better  analyzed  using  a  method  based  on  the  lifting  line  theory. 

Input  Description 

There  are  very  few  input  values  required  for  this  simple  program.  Their  description  and 
program  variable  names  are  listed  below. 

AR  -  Aspect  ratio  of  the  wing.  (Span)2,  Area 

NX,  NY  -  Number  of  vortices  in  the  X  and  Y  directions. 

ALPHA  -  Angle  of  attack.  (Angle  between  the  chord  and  the  freestream  velocity.) 
IOPT  -  Grid  spacing  option.  Uniform  grid  or  cosine  spacing. 

Input  Restrictions 

The  program,  as  written,  is  limited  to  350  total  surface  vortices.  This  may  be  modified 
by  changing  the  size  of  the  arrays,  however  for  the  wings  that  this  program  was  intended 
to  analyze,  this  should  be  sufficient.  The  program  will  accept  values  for  ALPHA  up  to 
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45  degrees,  but,  as  noted  previously  with  program  PANEL,  the  user  is  cautioned  that 
values  above  15  may  be  suspect. 

Sample  Problem 

A  sample  problem  will  be  used  to  illustrate  the  use  of  the  VORLAT  program.  The  run 
will  be  done  using  a  flat  rectangular  wing  with  an  aspect  ratio  of  2.  The  lattice  will  be 
created  by  placing  three  vortices  on  the  wing  in  the  X  direction  and  5  vortices  on  the 
wing  in  the  Y  direction.  The  vortices  will  be  distributed  using  the  Uniform  Grid  spacing 
option  and  the  wing  will  be  set  at  an  angle  of  attack  (alpha)  of  6  degrees. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 

Next,  ensure  that  the  program  is  in  your  directory  by  typing 

DIR  (Return] 

and  viewing  the  files  for  VORLAT.EXE  and  VORLAT.OBJ.  If  only  the  VORLAT.FOR 
file  exists,  you  must  compile  the  program  by  typing, 

FOR  VORLAT  (Return] 

The  next  step  is  to  link  the  program  by  entering, 

LINK  VORLAT  (Return] 

The  files  VORLAT.EXE  and  VORLAT.OBJ  will  now  exist  and  you  will  be  able  to  run 
the  program. 

Running  the  Program 
To  run  the  program,  tyne 
VORLAT  (Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Figure  24 


63 


PROGRAM  VORLAT  :  VERSION  4  :  10  SEPTEMBER  88 

VORTEX-LATTICE  METHOD  USED  TO  DETERMINE  SPANWISE 
LIFT  DISTRIBUTION  FOR  A  FLAT  RECTANGULAR  WING 

ENTER  THE  ASPECT  RATIO? 


Figure  24.  Initial  Screen  for  Program  VORLAT 

Respond  to  the  request  for  the  aspect  ratio  by  entering 

2  [Return] 

Respond  to  the  request  for  the  number  of  vortices  by  entering 

3,5  [Return] 

Now  enter  the  angle  of  attack  in  degrees  as 

6  [Return] 

Finally  enter  the  grid  spacing  option. 

1  [Return] 

The  screen  is  then  clearer  and  you  will  be  presented  with  what  is  shown  in  Figure  25 


THE  CURRENT  VALUES  ARE: 

1)  ASPECT  RATIO  .  = 

2. 000000 

2)  NUMBER  OF  VORTICES  (NX, NY)  = 

3 

5 

3)  ANGLE  OF  ATTACK  (DEGREES)  = 

6. 000000 

4)  GRID  SPACING:  (1)  UNIFORM,  (2) 

COSINE  = 

1 

THE  CALCULATED  PARAMETERS  ARE: 

DELTA  X  =  0. 3333333 

DELTA  Y  =  0. 1904762 

NUMBER  OF  EQUATIONS  TO  SOLVE  * 

15 

ARE  THESE  VALUES  CORRECT?  (YES=1,  NO=2) 

Figure  25.  Data  Review/Correction  Screen 

If  your  display  agrees  with  this,  respond  to  the  question  by  entering 

1  [Return] 
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If  you  should  desire  to  change  any  values,  enter  2,  and  you  will  be  asked  which  value 
you  want  to  correct  and  the  new  desired  value.  Following  entry  of  the  correct  values 
and  a  positive  response,  the  program  begins  the  solution  process.  It  returns  with  the 
coefficients  of  lift  and  drag  at  the  indicated  spanwise  positions,  as  well  as  the  chordwise 
center  of  pressure  for  those  positions.  Overall  values  for  the  coefficients  of  lift,  drag, 
induced  drag  and  moment  about  the  leading  edge  are  calculated  and  then  printed  out 
near  the  bottom  of  the  screen.  Don't  worry'  if  you  miss  some  of  the  values  as  they  scroll 
up  on  the  screen.  All  the  values  are  printed  to  both  the  screen  and  to  the  data  file. 

The  program  now  asks  if  you  want  to  make  another  run.  Enter 

1  (Return] 

You  should  now  be  back  at  the  data  review,' correction  screen  and  it  should  look  like 
Figure  25.  Now  run  the  same  wing,  but  use  the  cosine  grid  spacing.  Enter 

2  (Return] 

You  want  to  change  the  grid  spacing,  so  enter 

4  (Return] 

The  screen  is  automatically  updated  and  you  will  see  that  the  grid  spacing  has  been 
changed  for  you  also.  Since  there  are  only  two  grid  spacings  available,  the  program 
"knows"  to  chose  the  other  and  this  saves  you  the  extra  step  of  having  to  enter  it.  Not 
exactly  artificial  intelligence,  but  it  helps.  You  are  again  asked  if  the  data  is  correct. 
As  in  the  previous  example,  responding  with  a  (1)  causes  the  program  to  proceed  to  the 
output  stage.  The  solution  will  be  printed  to  the  screen  and  appended  to  the  data  file 
which  contains  the  data  from  the  prior  run. 

The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 

2  (Return] 

This  completes  the  sample  problem  for  the  VORLAT  program.  The  data  file  created 
by  this  sample  run  and  the  listing  for  the  VORLAT  program  are  on  the  following  pages. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 


**  UNIFORM  GRID  SPACING  ** 


NX*  3  NY*  5  ASPECT  RATIO  *  2. 00  ANGLE  OF  ATTACK  *  6. 00 


Y  CL(Y)  CD(Y)  XCP(Y) 

0. 095  0. 32140  0. 01232  0. 22266 

0.286  0.31085  0.01213  0.22061 

0.476  0.28791  0.01166  0.21614 

0.667  0.24778  0.01068  0.20843 

0.857  0.17711  0.00839  0.19624 


CL  *  0.  25620 

CD  =  0. 0105093 

CD/CL2  =  0. 1601 

CMLE  =  -0.055004 

XCP  *  0. 21469 


**  COSINE  GRID  SPACING  ** 


NX*  3  NY*  5  ASPECT  RATIO  =  2. 00  ANGLE  OF  ATTACK  *  6. 00 


Y  CL(Y)  CD(Y)  XCP(Y) 

0.045  0.32155  0.01223  0.22403 

0.210  0.31734  0.01220  0.22325 

0.476  0.29243  0.01176  0.21844 

0.742  0.23258  0.01038  0.20690 

0.907  0.14330  0.00733  0.19607 


CL  *  0. 25927 

CD  *  0. 0106156 

CD/CL2  *  0. 1579 
CMLE  *  -0.056232 
XCP  *  0. 21688 


NOTE:  CD/CL2  *  *  j  g  Used  to  compare  results  to  those  for  elliptic  loading. 
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PROGRAM  VORLAT  LISTING 


PROGRAM  VORUT 

"  j-a-  campmll  ,jul  M) 


PROGRAM  VORLAT  :  VERSION  4  4  AUGUST  88 


nimwiwK 


flsfnrasfwas 


asscWoSW  Wiffi'wtiiiiaNzaweT!®pi«  *  nn 


PROGRAM  VORLAT  :  VERSION  3  14  HAY  86 

VORTEX- LATTICE  METHOD  FOR  FLAT  RECTANGULAR  KING 


»**• 

***# 

«#** 


<*..  HRimj 


NY 


ASS  ®  1 


"  J  *- cmciL  ,M"' 

Spin  i 

f  fpS5“!?5ls.;#rs  ’ 

2  STATUS®  ’UNKNOWN’ 1 


VORTICES 

TO  CLEAR  THE  SCREEN,  THE  PRINT  HEADER 


CALL  LIBRARY  ROUTINE 
gA^CLRSCRN 

PRINT  «,  '  PROGRAM  VORLAT  :  VERSION  4  :  10  SEPTEMBER  88  ’ 

pi  h '  r??}Egi-^ii5fi^TP§g 

PRINT  * 

PRINT  » 


10 


nw 


*,  'ENTER  THE  ASPECT  RATIO?' 
*,  AR 


5o4jU$f  iSuT^H?  NUM^R  OF  VORTICES,  IN  THE  X  AND  Y  DIRECTIONS 


LESS  THAN  OR  EGUAL  TO  350 . 1 


■  tWtW  ANGLE  OF  ATTACK  IN  DEGREES?' 


iWp^AiW  m  BE  GREATER  THAN  ZERO.  PLEASE  REENTER.' 

THAN  45.  PLEASE  REENTER.' 

!f° i nEass  .GT.  1)60  TO  72 


ooo  on 


AO^PRXNT  ENTER  SR^SPACING  OPTION  (1  OR  2):  ID  UNIFORMS 

nIass**  JSL  *1 

«hh»  make  calculations  and  echo  check  the  input 


8 

c 


70  DX  * 


QMS 


/FLOAT! NX) 

■-«NY*  *  •** 


mj&imM"**  to  clear  ™E  screen 

«,*  THE  CURRENT  VALUES  ARE:  ‘ 

» 

THE  CALCULATED  PARAMETERS  ARE:  ‘ 

m  HiVBF*  z:# 

NUMBER  OF  EQUATIONS  TO  SOLVE  »• > NEONS 
VALUES  CORRECT?  IYES*1,  N0*2)* 


IOPT 


?|Mrv^SE 

IP.f 

“  IfogU8®1*'  ■■ 

5  ‘hi  sT‘ 

correct  oata  **** 


*FLAG  .EG.  1)  GO  TO  90 

WHICH  VALUE  DO  YOU  NISH  TO  CORRECT? 
ER.l,  2,  3  OR  4" 


ELSE 


ENTRY.  ENTER  1,  2,  3  OR  4.' 


IOPT  ■  1 

S8°t!F72 

90  COSALF  *  COSi ALPHA*PI/180.  ) 
SINALF  =  SINI ALPHA*PI/180 . ) 


C 

8 


INFORM  OPERATOR  THAT  PROCESSING  HAS  STARTED 
WRITE  14,1003) 

SET  COEFFICIENTS  OF  EQUATIONS  FOR  VORTEX  STRENGTHS 

DO  100  I  *  1»NY 
DO  100  J  s  1 .NX 

IJ  *  II  -  1  )#NX  ♦  J 
Al IJ.NEQNS  ♦  1)  «  SINALF 
DO  100  K  «  1,NY 
DO  100  L  «  1,NX 
KL  »  ( K-l  )*NX  ♦  L 

_ _ CALL  ONWASH  1 1  ,J,K,L,AIKL,IJ  1 ,1) 

100  CONTINUE 

SOLVE  FOR  VORTEX  STRENGTHS 

SALL  GAUSS  111 
0  200  I  «  1,NY 
DO  200  J  »  1,NX 

200  GAMlL)S3  iriJ,NEGNS+l) 

PRINT  OUT  HEADINGS  FOR  DATA 

If  i|8ST  ;ll:,  1!  SHI  HOT! 

SHI  !h}!8§i. 

INITIALIZE  TOTAL  FORCE  AND  MOMENT  COEFFICIENTS 


s 

Ot  « 
LT  « 


.0 

.0 

.0 
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COMPUTE  FORCE  AND  MOMENT  COEFFICIENTS 


°°cl25  5.o 

k  i  8:8 


5  1»NY 
0 


DO  no  J  >  1  >NX 

5J«V5-lW  * J 
88  188  f  i  m 

CXCSNCXNVE GAM! IJ )*< N  -  SINALF )*2. 

CZ  =  iZ  *  SAM(  I J  )*COSALF*2 . 

cS  »TCM  -'GAM(!jE)*DX»(  j  -  .  75>*C0SALF*2. 

L  CM-aF88s uGmWW'*i:'*U0-25*' reos< 
END  IF 

l  ExmIosIlI 


m  l  I8:I«ar  :  fc&fflffflmiitiffil :  ®mm 

ElT  *  CLT  ♦  CL*0ELY*2./AR 
CDT  =  COT  ♦  CD*DELY*Z./AR 


CMT  =  CMT  ♦  CM*DELY*2./AR 
END  IF 

I^IIOPT^EQ1:  1)  THEN 

ELSE  “  "S'**'1 
:c  Y  *  ( 0 . 5*AR  -  0 . 25*DY )#0 .5*1  FSINI I >NY )  ♦ 

Y  =  I Q . 5*AR  -  0.25*DYI*(FCgS(  J.NYl  ♦ 

♦  END  0.5*1  FCOSI  1*1, NY)  -  FCSsfl»NY))) 

„0  r  Kgjgi!iiS5S8)Y^cMcpP 

320  CgNTINUE  /<;lt 


FSIN(  I+1,NY>) 


CP  =  -CMT/CLT  _ 


CMT.XCP 
l.CMT  ,XCP 


HE  5:  '• 

400  «  ;  00  yoVi’™Seta<iother  run  <*• 

PRINT  *,  •  2)  END  THIS  SESSION’ 

PRINT  *,  ’  ENTER  1  OR  2.’ 

PRINT  * 

CALL  QUERY  (NANS) 

IF  (NANS  .EQ.  II  GO  TO  70 
STOP 

1000  FORMAT I //» '  **  UNIFORM  GRID  SPACING  **',///,„ 

♦  ’  NX=  ’,12,*  NY*  “,I2»'  ASPECT  RATIO  * 

*’  ANGLE  OF  ATTACK  =  ’,  F5.2,//) 

1001  FORMAT!//, ’  **  COSINE  GRID  SPACING  **',///,...  .  _ _ 

♦  ’  NX*  1 ,12, '  NY*  ’,12,'  ASPECT  RATIO  « 

♦’  ANGLE  OF  ATTACK  *  ’.F5.2.//I 

1003  FORMAT!//, ’  PROCESSING  BEGINS _ ’,///) 

1005  FORMAT  (////  '  Y  CL(Y)  CD!Y)  XCPIY)',/) 


rRlsiS^^^^E^Tift^O^L^^L^D^: 

DO  YOU  ,Hf11|^ET2^0THER  RUN  oft  i 
ENTER  1  OR°2T”IS  SESSI0N' 


*  unbic  ur  AiiKkr  » 

1003  FORMAT!//, ’  PROCESSING  BEGiNS _ ’,///) 

1005  FORMAT  (////  '  Y  CL(Y)  CD(Y)  XCPIY)',/ 

1010  FORMAT! F6.3.3F10.5) 

1020  FORMAT!/////,'  CL  =',F12.5,/,’  CD  *'.FW.7./i'  CD/CL2 

♦  /,’  CMLE  *  ,F11.6,/, 1  XCP  *',fll.5) 


*’,F7.«, 


SUBROUTINE  0M4ASH!  I  ,J,K,L  ,N,IND  ) 


COMPUTE  DOHNMASH  ON  PANEL  CENTERED  AT  IL-.5)DX»(K-.5)0Y_ 
DUE  TO  VORTICES  AT  PANELS  CENTERED  AT  I  J-.SJDX, ♦-!!-. 5)DY 


COMMON  DX,DY,AR,PI,IOPT ,NX,NY 

IF  I IOPT  .EG.  2)  GO  TO  50 
XA  «  DX*(j  -  .75) 

YA  *  DY*!  I  -  1) 

YB  *  DY*I 

IF  UNO  .EQ.  1)  XP  *  DX*1 L  -  .25) 

IF  UNO  .EQ.  2)  XP  *  0X*( L  -  .75) 

YP  |  DY*!K-.S) 

Isi  EgfesLiww  rumsms8ER. 

FAC  *  0 . 5*AR  -  0 . 25*0Y 

XA  *  FCOS! J,NX )  ♦  0 . 25*1  FCOS! J»1  ,NX )  -  FCOS(J,NX)) 

YA  *  FAC  *  FSINI  1-1 >NY ) 

YB  *  FAC  *  FSINI  I, NY) 

YA  *  FAC  *  FCOSI  I, NY) 
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nnnn  non  ooooocx 


ccc 

c*o 


,nx)  .  : 


VP  *  FAC»l FCOSI K >NY  )  ♦  0.5*1 


•NX )  ♦  .  25*1  FCOJ 
FSIMlK-l.NY  I ) 

(  FCOSl K+I>NV  I  - 


FCOS(K,NY ) ) ) 


N  a  MHV1 XP »VP >XA >YA )  -  NHVIXP.YP.XA,  YB I 

♦  -  HHVIXP.YP,XA,-YA)  ♦  NHV(XP,YP,XA,-YB) 
N  a  N*. 25/3. 1415926585 

ENO 

♦  _  ZIYI  -  t2  > 


00 

)**2  ♦  IY1-Y2  >**Z )/( XI  -  X2)) 


100  “HP  a  1./IY1 

en8eturn 


Y2) 


THIS  RETURNS  THE  NONDIMENSIONAL  X  COORD  OF  EACH  SECTION  BOUNDARY 

Ll'&s 

f-1  )/FLOATIN) 

-  COS( PI*FRACT ) J 


"WTCRffl] 

FRACT  »  FLOA1. . 
°*  #  1 


END 

*****  „  _ _ _  _ _ 

TOW*** 


FSIN  =  (SIN(.5*PI« 

RETURN 
END 


SUBROUTINE  CLRSCRN 
LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 

SfJuRN=  LIB$ER*SE-PAGE 

end 

"subroutine  QUERY (NANS) 


;t=o 

NUE 


fe%^SSI,iUs 


RETURN 
END 


SUBROUTINE  GAUSS  ( NRHS ) 

fe  i  HHVHPBi 


manuse™ 


HAND  SIDES 
SgLUTIONS_SJ^R|g  IN 


♦I'THRU  NEQNS+NRHS 


^C6?il/k?il5>351 )  •  NEONS 
*  NRHS 


00  150 


Imax 
do  ■ 


GAUSS  REDUCTION 

I  a  2>NEQNS 

—  SEARCH  FOR  LARGEST 
ON  OR  BEL  OH  MAIN  D 

*  I  -  l 

■  $»IM” 


ENTRY  IN  II-DTH  COLUFtl 
DIAGONAL 


110 


I  110  J  a  I, NEONS 

IF  (AMAX  .GE.  ABSIAC JfIM)))  GO  TO  110 
IMAX  a  J 

*  ABSt  A(  J  »IM ) ) 


AMAX 

CONTINUE 


SNITCH  (I-l)TH  AND  IMAXTH  EQUATIONS 
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CONTINUE 


60  TO  140 


MWitfmWUr 


00  " J  l  SMBfU XH.IH) 

00  i?S,K*  =  IfjJu  -  R*A<IM,K) 

BACK  SUBSTITUTION 
DO  220  K  «  NPsNTOT 

6oW  ’l  V&NEiSf  NE9NS  ,NEWS  1 

^°A?  I?K  A(  1 1 J  )«At  J,K) 
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Introduction 

The  purpose  of  this  manual  is  to  permit  the  user  to  utilize  the  JETFLAP  program  very 
quickly  and  easily  while  requiring  little  understanding  of  the  underlying  EVD  theory. 
The  program  JETFLAP  can  be  run  as  a  stand  alone  program  if  the  user  wants  to  de¬ 
velop  the  JETFLAP  input  data  file  manually,  but  this  is  not  recommended.  The  layout 
of  the  data  is  not  intuitive  and  its  formatting  is  critical.  For  this  reason,  the  program 
JETFLAPIN  has  been  created  to  assist  the  user  in  creating  the  JETFLAP  input  data  file 
through  an  interactive  terminal  session. 

This  interactive  program  is  a  user-friendly  way  of  creating  the  input  data  file  required 
by  the  wing  analysis  program  JETFLAP.  When  executed,  JETFLAPIN  asks  questions 
of  the  user  in  order  to  construct  and  write  to  a  file  the  required  JETFLAP  input  data  file. 

The  following  manual  contains  an  explanation  of  the  required  input  data.  The  reader 
will  find  a  parallel  explanation,  with  minor  modifications,  in  References  7  and  8.  Some 
parts  of  these  sources  have  been  duplicated  in  total  since  they  required  no  comment  and 
were  relevant  to  the  present  explanation.  References  to  input  data  cards  have  been 
changed  to  data  file  lines.  In  the  interest  of  space,  some  sections  were  not  included,  but 
the  interested  reader  may  fmd  them  helpful. 

Three  sample  data  input  files  and  their  associated  output  files  are  included  at  the  end 
of  this  appendix.  The  file  VOYTEST.DAT  contains  information  approximating  the 
VOYAGER  wing  planform.  TAPLR.DAT  illustrates  the  use  of  the  trapezoidal 
planform  simplification  and  a  semi-circle  spacing  scheme.  The  wing  is  swept  45  degrees, 
has  an  aspect  ratio  of  8.0  and  a  taper  ratio  of  0.45.  The  DOLGLAS.DAT  data  file  is 
contained  in  Ref.  7  and  was  also  located  at  the  end  of  the  magnetic  tape  following  the 
program  JETFLAP.  It  has  been  used  as  a  program  validation  test  case  by  comparing 
the  present  results  with  those  of  Refs.  7  and  8.  This  file  contains  information  for  a 
simple  rectangular  jet-flapped  wing  and  three  fundamental  cases.  The  stability  derivative 
flag  has  also  been  set. 

Assumptions  and  Limitations 

Before  using  this  program,  the  user  should  be  aware  of  the  assumptions  used  in  devel¬ 
oping  the  EVD  method  and  the  resulting  danger  of  extending  the  theory  beyond  its 
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limits.  The  assumptions  are  explained  in  the  section  on  theory  contained  in  References 
7  and  S.  but  they  are  summarized  below. 

1.  Linearity  -  This  assumption  allows  the  superposition  of  fundamental  geometric 
cases  or  solutions  but  also  limits,  as  an  example,  the  total  deflection  of  flow  by 
flaps.  Reference  7  states  that  the  small  angle  assumptions  of  the  linearized  ap¬ 
proach  make  it  unlikely  that  the  program  would  accurately  predict  the  character¬ 
istics  of  a  wing  with  a  flap  deflected  at  60  degrees. 

2.  Thin  Wing  Approximation  -  Enabling  the  simplified  treatment  of  wing  sections  by 
transferring  boundary  conditions  to  the  chordline,  this  assumption  limits  the  accu¬ 
racy  of  the  program  in  moduing  thick  wings. 

3.  Inviscid  Flow  -  Because  of  its  inability  to  predict  separated  flow,  the  computed  lift 
may  be  unrealistically  large  for  a  wing  at  high  angle  of  attack  or  with  a  sizeable  flap 
deflection.  Also,  the  program  cannot  consider  parasitic  drag. 

4.  Incompressibility  -  This  assumption  limits  the  range  of  speeds  for  which  the  pro¬ 
gram  can  be  used  to  that  in  the  low  subsonic  range.  The  Prandtl-Glauert  rule  can 
be  applied  to  cases  where  subsonic  Mach  number  effects  become  important  (Ref. 
3)  and.  in  fact,  has  been  included  in  a  later  version  of  this  EVD  program. 

5.  Irrotationality  -  The  irrotationality  assumption  usually  imposes  no  additional  limi¬ 
tation  in  low-speed  external  aerodynamics  where  the  flow  can  be  considered 
irrotational. 

6.  Interference  Effects  -  No  allowance  is  made  for  mutual  interference  effects  between 
the  wing  and  pylons,  nacelles  or  fuselage.  Ground  effect  is  also  neglected. 

7.  Wing  Area  Variation  -  Although  multiple-flapped  wings  may  be  modeled,  no  al¬ 
lowance  is  made  for  the  increased  wing  area  due  to  flap  extension.  An  example  is 
a  Fowler  Flap.  If  the  configuration  of  concern  is  such  a  case,  a  modification  of  the 
original  wing  planform  area  input  value  would  have  to  be  made. 

8.  Trailing  Edge  Jet  Sheet  -  The  program  only  allows  the  jet  sheet  to  emanate  from 
the  wing  trailing  edge.  Therefore,  doubtful  results  will  be  obtained  on  augmentor- 
type  flaps,  slots  and  externally  blown  flap  systems. 

9.  Computer  Run  Time  -  An  increase  in  the  number  of  elements  used  to  model  the 
wing  planform  will  increase  accuracy.  However,  according  to  Reference  7  the  time 
to  compute  increases  proportionally  between  the  square  and  the  cube  of  the  num¬ 
ber  of  elements  used.  On  the  Micro  VAX  2000,  a  run  using  112  elements 
(VOYAGR.DAT.  no  jets,  two  fundamental  cases)  took  137  seconds  to  run,  while 
a  wing  with  37  elements  (DOLGLAS.DAT,  21  wing  16  jet  elements,  three  cases 
and  stability  derivatives)  required  only  91  seconds.  These  times  may  be  further 
shortened  by  sending  the  output  to  a  file  vice  the  screen.  In  the  case  of  the 
VOYAGR.DAT  run,  the  time  was  cut  by  more  than  half  to  a  mere  59  seconds. 


Data  Preparation  Requirements 

Prior  to  using  the  JETFLAPIN  and  JETFLAP  programs,  the  user  must  accomplish  the 
following: 

1.  Draw'  a  scaled  plan  view  of  the  wing  and,  if  present,  the  jets. 
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2.  Divide  this  planform  into  spanwise  sections  parallel  to  the  freestream  velocity.  A 
maximum  of  40  is  permitted. 

3.  Divide  each  section  into  rectangular  base  elements.  These  elements,  literally,  are 
the  bases  of  the  EYD  elements  [Ref.  8:  p.  53]  which,  in  turn,  are  the  "building 
blocks"  of  the  program  operation.  Each  row  can  be  divided  into  a  maximum  of  40 
base  elements,  20  on  the  wing  and  20  on  the  jet.  However,  the  maximum  number 
of  these  elements  may  not  exceed  600. 

4.  Using  a  logical  scheme,  translate  the  arrangement  of  these  elements  and  the  de¬ 
flections  of  the  EVD's  into  a  format  usable  by  the  program. 

5.  Refer  to  the  section  on  the  Formulation  of  the  Input  Data  for  a  suggested  method 
of  approaching  the  problem  of  data  determination. 


Input  Description 

A  brief  description  of  each  piece  of  input  information  required  is  provided  during  exe¬ 
cution  of  the  JETFLAPIN  program,  however  for  the  benefit  of  the  user  they  are  re¬ 
peated  and  expanded  upon  here. 

•  Title  Line  -  This  card  provides  any  desired  description  of  the  computer  run.  The 
title  will  be  printed  at  the  top  of  the  first  page  of  output.  A  maximum  of  80  char¬ 
acters  may  be  input. 

•  General  Planform  Parameter  Line  -  This  line  contains  basic  planform  information. 

AREA  Wing  area,  in  units  of  (SPAN)2  to  be  used  for  normalization  of  the 
aerodynamic  coefficients.  Must  be  in  the  same  units  as  SPAN,  i.e.,  if 
span  is  in  feet,  the  area  should  be  in  ft2. 

SPAN  Wing  span,  in  any  desired  length  units. 

CREF  Wing  reference  chord,  to  be  used  for  normalizing  various  aerodynamic 
coefficients.  It  may  be  any  chord  length  and  must  be  in  the  same  units 
as  SPAN.  If  a  value  of  0.0  is  input,  the  mean  aerodynamic  chord, 
CMAC.  which  is  computed  automatically,  will  be  used. 

XMC  Pitching  moment  center.  Point  about  which  pitching  moments  will  be 
taken,  measured  from  the  wing  apex.  Same  units  as  span.  NOTE:  The 
wing  apex  is  defined  by  the  program,  implicitly,  as  the  intersection  of  the 
x-axis  with  the  leading  edge  when  the  wing  is  oriented  without  a  sideslip. 
If  the  wing  should  be  input  in  a  yaw,  the  apex  remains  at  that  point. 

XCG  Wing  Center  of  Gravity.  Measured  from  the  apex,  this  point  is  used  as 
a  pitching  axis  for  computation  of  stability  derivatives,  XCG  need  only 
be  input  if  IDERI V  ^  o.  Same  units  as  SPAN. 

•  General  Control  Line  -  This  line  contains  control  "flags"  which  describe  the  basic 
characteristics  of  the  computer  run. 

NROWS  Number  of  spanwise  sections  (rows)  into  which  the  wing  is  divided.  For 
symmetric  or  anti-symmetric  wings,  only  the  number  of  sections  on  the 
right  half  of  the  wing  should  be  input.  For  non-symmetric  wings, 
NROWS  equals  the  total  number  of  spanwise  rows  from  wing  tip  to 
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wing  tip.  See  (Ref.  8:  pp.  79-S1J  for  a  discussion  on  symmetric  versus 
non-symmetric  wings. 

NCASES  Total  Number  of  Fundamental  Cases.  There  will  always  be  one  funda¬ 
mental  case,  that  being  a  flat  plate  at  one  degree  angle  of  attack.  No 
input  data  is  required  for  that  case  and  it  will  be  labeled  by  the  program 
a  Case  1.  Therefore.  NCASES  must  be  one  greater  than  the  number  of 
cases  for  which  input  data  will  be  given  (data  lines  12  and  13),  to  allow 
for  the  angle  of  attack  case. 

ISYMM  Symmetry7  Indicator. 

■  =0,  Wing  is  symmetric 

•  >0,  Wing  is  non-symmetric 

■  <0,  Wing  is  anti-symmetric 
IPR1NT  Printed  Output  Control  Flag. 

•  >1,  Print  geometry  details  and  total  aerodynamic  coefficients, 

•  =  1,  In  addition,  print  spanwise  loading, 

■  =  0,  In  addition,  print  chordwise  loading, 

■  <  0,  In  addition,  print  all  matrices,  back  substitution  checks  and 
other  details.  This  option  is  normally  reserved  for  trouble-shooting, 
since  it  produces  a  very  large  amount  of  output. 

JETFLG  Jet  Indicator  Flag.  A  flag  used  for  signaling  if  there  is  a  jet  issuing  from 
the  trailing  edge  of  the  wing. 

■  =0,  There  is  a  jet  sheet  and  jet  data  will  be  input. 

■  =1,  There  is  no  jet  sheet. 

IGTYPE  Wing  Planform  Geometry  Flag. 

■  =1,  Wing  planform  is  completely  arbitrary  and  sectional  leading  and 
trailing  edge  coordinates  will  be  read  to  define  the  planform. 

•  =  2,  Wing  is  trapezoidal  and  simplified  planform  data  will  be  input. 
This  type  of  input  can  only  be  used  if  the  wing  is  symmetric.  NOTE: 
Although  a  triangular  shaped  wing  might  be  thought  of  as  a  degen¬ 
erative  trapezoid,  this  input  cannot  be  used  for  a  delta  planform. 

HINGE  Hinge  EVD  Flag. 

•  =0,  Regular  EVD's  will  be  used  on  all  hinge  elements. 

■  >0,  Hinge  EVD’s  will  be  used  on  all  hinge  elements.  Not  permitted 
if  computing  dynamic  stability  derivatives,  i.e.,  IDERIV  >  0. 

IDERIV  Dynamic  Stability  Derivative  Flag. 

■  =0,  Basic  run  will  be  executed  with  no  stability  derivatives  computed. 

•  >  0,  In  addition,  a  dynamic  stability  derivative  run  will  be  executed. 
This  option  requires  the  program  to  make  an  additional  run,  ap- 
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proximately  doubling  the  computer  time.  NOTE:  The  derivative  run 
also  reduces  to  8  the  maximum  number  of  optional  fundamental  cases 
permitted,  since  an  extra  fundamental  case  is  generated  by  the  pro¬ 
gram  to  be  used  during  derivative  calculations. 

•  Section  Centerline  Location  Lines  -  These  lines  contain  the  spanwise  locations  of 
the  centerline  of  each  wing  (and  jet)  section.  JETFLAPIX  will  will  place  up  to 
eight  values  on  each  line,  with  a  maximum  of  5  lines  (40  sections)  allowed. 

Y  Spanwise  distance  from  wing  centerline  (x-axis)  to  the  section  centerline, 

normalized  by  SPAN,  2.  All  values  must  satisfy  (-1.0  <,  Y  <,  1.0). 
NROWS  (number  of  row  sections)  values  must  be  input,  beginning  at 
the  right  wing  tip  and  working  to  the  wing  centerline  for  symmetric  or 
anti-symmetric  wings,  or  to  the  left  wing  tip  for  non-symmetric  wings. 

•  Wing  Section  Type  Line  -  This  card  indicates  the  chordwise  arrangement  of  EVD 
elements  for  each  section  on  the  wing.  The  section  type  is  determined  by  the 
number  and  spacing  of  the  elements  within  each  section. 

1CTYPE  Type  Number  of  Each  Wing  Section.  Any  sections  having  the  same 
number  of  elements,  all  with  the  same  distance  from  the  section  leading 
edge  (normalized  by  the  xectional  chord)  are  of  the  same  1CTYPE.  A 
maximum  of  ten  different  types  is  allowed.  The  section  at  the  right  wing 
tip  is  designated  1CTYPE  01.  Each  new  type  receives  a  sequentially 
higher  ICTYPE.  The  highest  ICTYPE  is  referred  to  by  the  program  as 
NWTYPE.  NROWS  values  must  be  input,  therefore,  each  section  must 
be  "typed". 

•  Number  of  Chordwise  Wing  Elements  Line  -  This  line  contains  the  number  of 
chordwise  EVD  elements  for  each  wing  section  type  (ICTYPE). 

NI  Number  of  Chordwise  Elements  per  ICTYPE.  Enter,  in  ascending  order 

by  ICTY  PE,  the  number  of  elements  within  that  ICTYPE.  There  may 
be  as  few  as  two  or  as  many  as  twenty  elements  per  section  type. 
NWTY  PE  (the  number  of  different  section  types)  values  are  required. 

•  Wing  Chordwise  Element  Coordinates  -  These  lines  contain  the  x  c  coordinates  of 
each  EVD  element  for  each  ICTYPE. 

XBW  The  chordwise  coordinate  of  each  EVD  vortex  point,  measured  from  the 
leading  edge  of  the  section,  normalized  by  the  sectional  chord.  The  first 
XBW  of  each  set  must  be  0.0  and  the  last,  less  than  1.0.  There  may  be 
as  few  as  two  or  as  many  as  twenty  values  per  section  type.  NWTY  PE 
(the  number  of  different  section  types)  sets  of  values  are  required. 
NOTE:  Reference  7,  Vol.  II  refers  to  these  coordinates  as  XB.  The  "W" 
was  added  in  reference  8  to  be  consistent  with  the  nomenclature  of  the 
program  listing  and  also  to  differentiate  between  hinge  point  coord., 
XBH,  and  XBJ,  the  coords,  of  elements  on  the  jet  sheet  portion  of  the 
section. 

•  Planform  Information  Lines  -  There  are  tw’o  types  of  input  lines  used  to  define  wing 
planform.  Line  8a  is  used  for  arbitrary  wing  planforms  (IGTYPE*  1).  Line  8b  is 
used  for  trapezoidal  wing  planforms  (IGTYPE=2).  The  program  JETFLAPIN 
will  choose  the  correct  form  based  on  the  value  of  IGTY'PE. 
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•  Leading  and  Trailing  Edge  Coordinates  -  In  order  to  define  an  arbitrary  planform, 
the  leading  and  trailing  edges  for  each  section  must  be  defined.  All  section  coor¬ 
dinates  need  not  be  input,  however.  The  program  must  have  the  tip  and  root  co¬ 
ordinates,  as  a  minimum,  and  any  other  section's  which  would  define  a  break  in  the 
edge.  The  program  will  assume  a  straight  edge  exists  between  coordinates  input, 
and  will  interpolate  between  them.  A  minimum  of  two  sets  of  coordinates  and  a 
maximum  of  N  ROWS  is  required. 

Y  Spanwise  distance  from  a  section  centerline  to  the  centerline  of  the  wing, 

normalized  by  the  half  span.  Each  value  must  be  exactly  the  same  as 
those  input  for  the  section  centerline  location  lines.  JETFLAPIN  auto¬ 
matically  uses  the  previously  input  values. 

XLEAD  Leading  Edge  Coordinate.  Input  the  chordwise  distance  from  the  section 
leading  edge,  at  the  section  centerline,  to  the  wing  apex.  Same  units  as 
SPAN,  i.e.,  not  normalized  by  the  chord. 

XTRAIL  Trailing  Edge  Coordinate.  Input  the  chordwise  distance  from  the  section 
trailing  edee,  at  the  section  centerline,  to  the  wing  apex.  Same  units  as 
SPAN. 

9  A  "9"  must  appear  in  column  one  of  the  next  line  after  the  last  edge  co¬ 

ordinate  in  order  to  signal  that  all  desired  sections  have  been  input.  This 
is  required  only  if  IGTYPE=  1  and  is  handled  automatically  bv 
JETFLAPIN. 

•  Trapezoidal  Wing  Parameters  -  This  line  contains  planform  information  for  the 
trapezoidal  wing.  It  is  used  when  1GTYPE=2.  This  type  of  input  may  be  used 
only  when  the  wing  planform  is  symmetric. 

ARATIO  Wing  Aspect  Ratio.  Input  the  value  of  (SPAN'P/AREA.  JETFLAPIN 
automatically  calculates  this  value  from  previously  supplied  information. 

SWEEP  Sweep  angle  of  the  Quarter-Chord  Line.  Input  the  angle  in  degrees. 

TR  Taper  R  itio.  TR  is  defined  as  the  chord  at  the  wing  tip  divided  by  the 
chord  at  the  wing  root. 

•  Jet  Section  Type  Line  -  This  line  indicates  the  chordwise  arrangement  of  EVD  ele¬ 
ments  for  each  section  on  the  jet  sheet.  The  jet  sheet  uses  the  same  sectional 
boundaries  as  the  conventional  wing  sections  forward  of  it.  This  line  is  required 
only  if  JETFLG  =  0. 

IJTYPE  Type  Number  of  Each  Jet  Section.  Input  the  type  number  of  each  sec¬ 
tion  of  the  wing  with  respect  to  the  presence  of  a  jet  sheet  aft  of  it.  Since 
there  is  no  requirement  that  the  jet  sheet  span  the  entire  wing,  sections 
without  a  jet  are  designated  with  a  "0".  Similar  to  line  5,  the  wing  section 
type  line,  as  each  section  within  the  jet  sheet  is  encountered,  it  either  re¬ 
ceives  a  sequentially  higher  IJTYPE  of  the  same  IJTYPE  as  a  previously 
labeled  equivalent  section.  The  number  of  different  jet  section  types  is 
N'JTYPE.  The  zeroes  do  not  count  as  IJTYPE’s  for  the  purpose  of 
summing  types  to  find  N'JTYPE.  The  number  of  non-zero  values  input 
is  N'ROWSJ,  the  number  of  sections  having  a  jet.  The  maximum  num¬ 
ber  of  jet  section  types  is  10.  Implied  also  is  that  N'JTYPE  must  be  less 
than,  or  equal  to,  N'ROWSJ.  N'ROWS  values  are  required. 
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NOTE:  Due  to  a  computational  procedure,  there  must  be  at  least  three 
adjacent  jet  sections  if  there  is  one.  Also,  inboard  or  outboard  of  a 
partial  span  jet  sheet,  a  group  of  at  least  three  unblown  sections  must 
exist. 

•  Number  of  Chordwise  Jet  Elements  -  This  line  contains  the  number  of  chordwise 
EVD  elements  for  each  jet  section  type.  It  is  similar  to  line  6,  number  of  chordwise 
wing  elements  per  section  type,  except  that  N'JTYPE  values  must  be  input.  Re¬ 
quired  only  if  JETFLG  =  0. 

NI  Number  of  Chordwise  EVD  Elements  for  Each  Jet  Section  Type.  Enter, 
in  ascending  order  by  IJTYPE,  the  number  of  elements  within  that 
1JTYPE.  There  may  be  as  few  as  two  or  as  many  as  ten  elements  for 
each  jet  section  type.  N'JTYPE  (the  number  of  different  jet  section 
types)  values  are  required. 

•  Jet  Chordwise  Element  Coordinates  -  These  lines  contain  the  x  c  coordinates  of  each 
element  of  each  jet  section  type.  N'JTYPE  sets  lines  are  required,  each  with  NT 
values  of  x  c.  These  values  are  required  only  if  JETFLG  *  0. 

XBJ  Chordwise  Coordinate  of  Each  per  IJTYPE.  The  chordwise  coordinate 
of  each  EVD  vortex  point,  measured  from  the  leading  edge  of  the  sec¬ 
tion  (at  centerline)  and  normalized  by  the  sectional  chord.  Thefirst  value 
for  XBW  of  each  set  must  be  1.0  (trailing  edge).  The  last  two  base  ele¬ 
ments  in  the  jet  section  are  overlapped  by  the  Far-Jet  (or  Jet,  or  Infinity) 
EVD  which  has  a  length  of  1010,  approximating  infinity.  Therefore,  there 
is  no  proactical  maximum  coordinate  for  elements  within  the  jet.  There 
may  be  as  few  as  two  or  as  many  as  ten  values  per  jet  section  type. 
N'JTYPE  (the  number  of  different  jet  section  types)  lines  of  values  are 
required. 

•  Fundamental  Case  Control  Line  -  This  line  identifies  the  types  of  linear  geometric 
variations  to  be  included  in  each  fundamental  case.  The  number  of  fundamental 
cases  input  must  be  one  less  than  N'CASES  (line  3),  to  allow  for  the  angel  of  attack 
case.  A  separate  line  is  required  for  each  of  the  input  cases.  In  each  of  the  flags 
below,  a  zero  value  indicates  omission  of  the  respective  type  of  input  for  that  fun¬ 
damental  case.  A  non-zero  value  indicates  that  the  variation  will  be  included  and 
input  must  be  given  to  define  it.  JETFLAPIN  sets  the  non-zero  value  to  corre¬ 
spond  with  the  number  of  the  fundamental  case,  i.e.,  for  fundamental  case  number 
two,  variations  to  be  included  will  be  indicated  with  a  "2".  For  each  variation  se¬ 
lected,  a  corresponding  line  will  follow  containing  the  information  defining  that 
variation.  NOTE:  Refs.  7  and  8  use  the  same  names  shown  below,  however,  in  the 
program  listing  fo~  JETFLAP  under  subroutine  INCASE  they  are  refered  to  re¬ 
spectively  as  IN'PLTT,  IN'PL'TH,  INPUTD,  INPUTC,  and  INPUTB. 

INTWST  Spanswise  twist  distribution  flag. 

INHITE  Leading  edge  vertical  displacement  flag. 

INDELJ  Jet  deflection  flag. 

INCAMB  Camber  flag. 

INBETA  Wing  hinge  deflection  flag. 
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•  Fundamental  Geometric  Variation  Lines  •  These  lines  are  input  only  in  the  appro¬ 
priate  flags  in  the  fundamental  case  control  line  has  been  set  to  a  non-zero  value. 

TWIST  Sectional  Wing  Twist.  Enter  the  wing  twist,  in  degrees,  at  the  section 
centerline,  with  respect  to  the  wing  reference  plane.  Positive  values  are 
in  the  same  sense  as  a  positive  angle  of  attack  (leading  edge  up). 
NROWS  values  are  required.  Required  only  it  INTWST  #  0. 

HO  Displacement  coordinate  of  the  section  leading  edge  from  the  wing  ref¬ 
erence  plane,  normalized  by  the  sectional  chord.  Leading  edge  displace¬ 
ment  may  be  the  result  of  dihedral,  twist,  nonlinear  movement  of  a 
leading  edge  device,  etc.  Translation  resulting  from  ordinary  linear 
leading  and  trailing  flap  deflections  and  angle  of  attack  are  accounted  for 
automatically  by  the  program.  These  values  are  used  only  for  the 
computaion  of  the  jet  thrust  contribution  to  pitching  moments  and 
therefore  will  have  no  effect  unless  jet  sheets  exist.  NROWS  values  are 
required.  Required  only  it  INHITE  Vs  0. 

DJ  Jet  Turning  Angle.  The  jet  turning  angle,  in  degrees,  relative  to  the 
trailing  edge.  Positive  deflection  is  downward.  NOTE:  JETFLAPIN 
requires  that  the  values  are  input  in  the  order  that  they  are  encountered 
within  the  jet  sheet,  working  from  the  right  wing  tip  towards  the 
centerline.  NROWSJ  values  are  required.  Required  onlv  it  INDELJ 
0. 

ICT  Camber  Type  Number  for  Each  Wing  Section.  These  values  are  similar 
to  the  wing  section  type  values  on  line  5.  In  order  for  two  sections  to 
have  the  same  ICT,  the  number  of  elements,  their  x'c,  and  the  camber 
angle  associated  with  them  must  be  the  same.  NROWS  must  be  input 
with  a  maximum  of  10  ICT's  allowed.  The  highest  value  is  NCT  and 
there  may  be  no  "gaps"  in  the  numbering  sequence.  A  zero  value  indi¬ 
cates  no  camber.  Required  only  it  INCAMB  #  o. 

AC  Camber  Angle.  The  camber  angle,  in  degrees,  at  eh  downwash  control 
point  of  each  EVD.  The  downwash  control  point  is  defined  as  a  point 
chosen  halfway  between  adjacent  XBW's  (line  7)  including  the  trailing 
edge.  The  angle  wi'  be  positive  in  the  same  sense  as  positive  angle  of 
attack.  NCT  lines  are  required.  Required  only  it  INCAMB  #  o. 

ACTE  Trailing  Edge  Camber  Angle.  This  is  the  trailing  edge  deflection  angle 
due  to  camber  only.  The  values  are  used  for  determining  the  angle  at 
which  the  jet  sheet  issues  from  the  wing.  These  cards  are,  therefore,  only 
necessary  if  there  is  camber  (INCAMB  #  0)  and  if  there  is  a  jet  sheet 
(JETFLG  #  0).  NROWSJ  values  are  required. 

IHT  Hinge  Section  Type.  Similar  in  concept  to  Wing  Type  (ICTYPE)  and 
Camber  Type  (ICT);  starting  with  the  first  section,  designate  the  type 
of  section  with  respect  to  hinges  in  the  section.  A  section  with  no  hinges 
will  be  "0".  For  sections  to  have  the  same  IHT  they  must  be  alike  in 
their  number  of  hinges,  not  to  exceed  four,  location  of  hinges  (x  'c),  their 
type  (leading  or  trailing  edge  flap)  and  in  all  deflections.  There  may  be 
as  many  different  IHT's  as  there  are  sections.  The  number  of  different 
IHT's  is  called  NHT,  and  there  may  be  no  "gaps"  in  the  sequence. 
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NROWS  values  are  required,  therefore  even,'  section  must  be  "typed". 
Required  only  it  INBETA  #  0. 

XBH  Hinge  Point  Distance.  The  distance  from  the  leading  edge  of  the  section 
to  the  hinge  point,  i.e.,  where  the  hinge  line  intersects  the  section 
centerline,  the  distance  is  normalized  by  the  sectional  chord  and  must 
be  one  of  the  XBW  values  entered  on  line  7.  A  set  of  values  is  required 
for  each  hinge  section  type;  NHT  sets. 

ILT  Leading  or  Trailing  Edge  Indicator. 

•  =0,  Trailing  edge  flap  hinge  (positive  deflection  in  the  sense  of  posi¬ 
tive  angle  of  attack). 

■  #0,  Leading  edge  flap  hinge  (positive  deflection  in  the  sense  of  neg¬ 
ative  angle  of  attack). 

BETA  Hinge  Deflection  Angle.  The  deflection  angle,  in  degrees,  of  the  element 
aft  of  the  hinge  point  relative  to  the  element  forward  of  the  hinge  point. 

•  Composite  Case  Lines  -  These  lines  indicate  how  the  fundamental  cases  that  are 
input  on  lines  12  and  13  are  to  be  combined  to  form  or  model  the  wing  under  study. 
A  maximum  of  24  composite  cases  are  permitted.  No  composite  case  may  also  be 
chosen  and  JETFLAP1N  will  automatically  place  a  "9"  in  the  first  column  of  this 
line. 

N  Fundamental  Cases  to  be  Included.  Indicate  the  fundamental  case 

number  which  is  to  be  included  in  forming  a  given  composite  case.  As 
many  as  ten  fundamental  cases  may  be  combined  in  any  one  composite 
case.  The  fundamental  cases  are  identified  in  the  order  in  which  they 
were  input.  NOTE:  Recall  that  fundamental  case  number  I  is  the  one 
degree  angle  of  attack  case. 

A  Multiplicative  Factor.  This  factor  multiplies  the  fundamental  case  pre¬ 

viously  input.  Had  the  fundamental  case  included  a  hinge  deflection  of 
10  degrees,  a  value  of  A  =  1.6  would  introduce  a  flap  deflection  of  16 
degrees  into  that  particulat  composite  case. 

9  End  of  Composite  Cases.  This  value  is  placed  at  the  end  of  the  last 

composite  case  or  by  itself  to  indicate  the  completion  of  composite  case 
information  or  that  no  composite  cases  are  desired,  respectively.  NOTE: 
This  "9"  card  is  not  conditional,  it  will  be  in  every  run. 

•  Jet  Strength  Line(s)  -  These  lines  contain  the  jet  strength  for  all  sections  which 
have  a  jet.  An  unlimited  number  of  sets  of  values,  maximum  of  40  per  set,  may 
be  entered.  NROWSJ  values  are  required.  Required  only  it  JETFLG  =  0. 

CMU  Sectional  Jet  Momentum  Strength  for  each  jet  row.  CMC  is  defined  as 
CMC  =  J  (qc(y)),  where  J  is  the  sectional  jet  momentum  per  unit  span, 
q  is  the  dynamic  pressure,  and  c(y)  is  the  sectional  chord.  Since  the  data 
refers  to  only  sections  with  jets,  0.0  may  not  be  input  unless  all  are  0.0. 
As  many  sets  of  CMU  data  may  be  input  as  desired.  To  run  a  case  on 
a  jet-flapped  wing  to  examine  the  characteristics  without  the  jet,  a  set 
of  values  all  equal  to  zero  must  be  entered.  This  option  generates  a 
complete  set  of  loadings  and  other  aerodynamic  coefficients  for  each  set 
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of  CML'  data  input.  (0.0  <,  CMU  <  800.0)  Required  only  it  JETFLG 

-  0. 

A  ”9"  is  placed  in  column  one  of  the  line  following  all  CMU  data  to 
signal  the  end  of  CMU  input.  Handled  automatically  by  JETFLAPIN. 


Input  Restrictions 

A  summary  of  the  input  restrictions  described  in  References  7  and  8  is  listed  below. 
These  have  been  incorporated  into  the  error-checking  and  screen  messages  provided  in 
the  JETFLAPIX  program  and  are  repeated  here  as  a  quick  reference  during  data  prep¬ 
aration. 

1.  A  "Rule  of  Three"  is  implied  with  regard  to  dividing  the  wing  (and  jet  sheet)  into 
sections.  At  least  three  adjacent  sections  of  either  blown  or  unblown  types  are  re¬ 
quired.  A  jet  cannot  consist  of  one  or  two  sections.  Likewise,  if  the  region  of  jet 
sheet  is  partial  span  and  located  so  that  it  is  bordered  on  both  inboard  and  out¬ 
board  sides  by  conventional  (unblown)  wing,  those  unblown  portions  of  the  wing 
must  also  have  three  adjacent  sections  each. 

2.  The  number  of  spanwise  sections,  NROWS,  requires  3  ^  NROWS  <  40. 

3.  1  ^  XCASES  <  10.  There  is  always  one  Fundamental  Case  generated  by  the  pro¬ 
gram.  Xine  others  may  be  input. 

4.  The  number  of  chord  wise  elements  in  the  wing  part  of  a  section,  XI.  requires 
2  <  XI  <  20. 

5.  The  number  of  chordwise  elements  in  the  jet  part  of  a  section,  XI,  requires 
2  <  XI  <  20. 

6.  Maximum  of  10  section  types  for  the  wing  or  the  jet.  (ICTYPE,  IJTYPE  £  10  ). 

7.  On  the  wing,  0.0  ^  XBW  <  1.0. 

8.  On  the  jet,  l.O^XBJ. 

9.  Onlv  XROWSJ,  the  number  of  rows  with  jets,  values  required  for  DJ,  ACTE,  and 
CMC. 

10.  Maximum  number  of  camber  section  types  is  10. 

1 1.  There  mav  be  as  manv  hinse  section  tvpes,  X'HT,  as  there  are  rows  (or  sections). 
( 1<  XHT  <  XROWS) 

12.  Each  section  may  have  four  hinges  in  any  combination  of  leading  and  trailing  edge 
flaps. 

13.  The  jet  blowing  coefficient,  CMU,  is  restricted  to,  0.0  ^  CMU  <  800.0. 


Formulation  of  the  Input  Data 

The  most  difficult  and  time-consuming  part  of  the  wing  analysis  using  the  JETFLAP  and 
JETFLAPIX'  programs  is  the  decomposition  of  the  wing  into  elements  and  obtaining  the 
coordinates  of  those  elements.  There  is  hope  that  follow-on  work  will  be  conducted  to 
integrate  the  sophisticated  graphics  capabilities  of  the  MicroVAX/2000  with  the  data 
input  portion  of  the  JETFLAP  program,  however,  for  the  present,  the  following  me¬ 
thodical  approach  to  the  problem  is  recommended. 
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A  table  such  as  that  shown  in  Ref.  8,  p.  117.  will  help  the  user  organize  the  required 
data.  Starting  at  the  beginning  of  the  problem,  the  user  is  urged  to  follow  the  steps  be¬ 
low: 

1.  Make  or  obtain  a  scaled  drawing  of  the  wing  with  all  flaps  and  other  details  drawn 
on  the  planform.  The  scaling  is  often  important  in  obtaining  geometrical  data  that 
is  often  not  presented  explicitly. 

2.  If  possible,  create  equations  for  the  leading  and  trailing  edges.  For  example,  if  the 
edge  is  a  straight  line,  substitute  tip  and  root  dimensions  into  the  Two-Point  Form 
of  the  equation  fo  a  straight  line.  Such  an  equation  will  facilitate  the  finding  of 
leading  trailing  edge  coordinates  once  spanwise  section  centerline  coordinates  have 
been  established. 

3.  Draw  in  spanwise  sections  taking  into  account  obvious  areas  of  rapidly  changing 
loading  (wing  tips,  near  flaps)  and  rapid  changes  in  sectional  chord.  It  is  important 
to  define  sections  near  breaks  in  the  wing,  such  as  leading  edge  extensions,  other¬ 
wise  the  program,  seeing  only  the  wing  edge  coordinates,  might  read  that  portion 
of  the  leading  edge  as  a  relatively  flat  segment  of  a  multisegment  tapered  wing. 

4.  Make  two  columns,  entering  sections,  starting  with  1  at  the  wing  tip,  in  column  one 
and  the  section  centerline  coordinates  (normalized  by  the  semi-span)  in  column 
two. 

5.  Draw  in  chordwise  elements  for  each  section.  It  is  more  expedient  to  strive  for  the 
same  distribution  on  each  section,  if  possible,  unless  camber  discontinuities  (flaps, 
rapid  changes  in  mean  camber  ine  slope)  dictate  otherwise. 

6.  Enter  the  coordinates  of  the  vortex  points,  normalized  by  the  sectional  chord,  on 
each  line  next  ot  the  appropriate  section.  NOTE.  One  of  these  coordinates  must 
coincide  with  the  point  where  the  section  centerline  intersects  a  flap  hinge  line,  if 
included.  Circle  or  otherwise  mark  such  coordinates  for  future  identification. 

7.  Proceeding  down  the  rows  of  coordinates,  any  two  rows  with  a  different  number 
of  values  or  diflerent  values,  are  of  different  section  types.  In  ascending  order,  label 
in  another  column  each  row  with  its  type.  The  maximum  number  of  types  is  JO 
and  the  highest  type  defined  is  called  NWTYPE. 

8.  At  the  end  of  each  row  write  the  total  number  of  chordwise  elements  in  that  row. 
Circle  the  numbers  that  correspond  with  diflerent  types. 

9.  In  another  column,  list  leading  and  trailing  edge  coordinates  by  substituting  (Y) 
values  into  the  leading  and  trailing  edge  equations,  if  available.  NOTE.  Only  those 
edge  coordinates  which  mark  wing  root,  tip  and  breaks  need  be  calculated,  if  the 
edges  are  straight  line  segments. 

10.  Looking  back  over  the  completed  table,  the  data  for  several  of  the  input  data  file 
lines  are  readily  available.  Column  numbers  refer  to  columns  in  Table  I. 

a.  Col.  2  is  line  4. 

b.  Col.  3  is  line  5. 

c.  Cols.  4-12  contain  data  for  line(s)  7. 

d.  Col.  13  (circled  entries)  is  line  6. 


e.  Cols.  2,  14,  and  15,  in  that  order  constitute  line  8a. 

In  addition,  the  last  row  number  in  Col.  1  is  NROWS  (Cols.  1-2  on  line  3).  The 
total  of  Col.  13  entries  is  the  total  number  of  EVD's,  which  is  limited  to  600.  More  de¬ 
tails  may  be  found  in  Ref.  S  . 

Sample  Problem 

A  sample  session  will  illustrate  the  use  of  the  JETFLAP  and  JETFLAPIN  programs. 
The  run  can  be  accomplished  using  one  of  the  sample  data  output  files  provided  at  the 
end  of  this  appendix.  It  is  recommended  that  one  of  the  simpler  data  files,  such  as 
TAPER.DAT  or  VOYAGR.DAT,  be  used  to  respond  to  the  questions  asked  by  the 
JETFLAPIN  program.  This  method  will  allow  the  user  to  try  out  the  program  and  get 
familiar  with  the  questions  asked,  prior  to  going  through  the  effort  involved  in  formu¬ 
lating  the  data  for  a  new  problem. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 

Next,  ensure  that  the  program  is  in  your  directory  by  typing 

DIR  [Return] 

and  viewing  the  files  for  JETFLAP.EXE,  JETFLAP.OBJ.,  JETFLAP1N.EXE  and 
JETFLAPIN.OBJ. 

If  only  the  JETFLAP.FOR  and  JETFLAPIN. FOR  files  exist,  you  must  compile  the 
programs  by  typing, 

FOR  JETFLAP  [Return] ,  and  if  necessary, 

FOR  JETFLAPIN  [Return] 

The  next  step  is  to  link  the  programs  by  entering, 

LINK  JETFLAP  [Return] ,  and  again  if  necessary, 

LINK  JETFLAPIN  [Return] 

The  files  JETFLAP.EXE,  JETFLAP.OBJ.,  JETFLAPIN.EXE  and  JETFLAPIN.OBJ 
will  now  exist  and  you  will  be  able  to  run  the  programs. 


Running  the  Program 
To  run  the  program,  type 

JETFLAPIN  (Return] 

The  program  will  start  and  the  screen  will  display  the  header  for  the  interactive  program. 
Using  one  of  the  sample  data  files  for  the  correct  values  and  this  appendix  to  assist  you 
with  the  terminology,  answer  each  question  presented.  As  you  proceed  through  the 
JETFLAPIN  program,  opportunities  to  review  and  change  input  data  will  be  presented. 
Should  it  become  necessary  to  change  your  input  data  after  completing  the  JETFLAPIN 
program,  you  can  simply  edit  the  created  data  file  using  the  VAX  EDT  editor. 

After  the  JETFLAPIN  input  program  has  been  run  to  completion,  the  file  will  you  cre¬ 
ated  will  exist  on  your  directory  with  the  file  extension  .DAT.  This  file  should  be  re¬ 
viewed  and  compared  with  the  sample  file  used  as  a  reference.  If  everything  is  in  order, 
you  should  run  your  data  file  through  the  JETFLAP  wing  analysis  program. 

The  JETFLAP  wing  analysis  program  will  ask  you  for  the  file  name  of  the  input  data 
file.  It  is  not  necessary  to  enter  the  file  extension  .DAT,  but  you  may  do  so  without  any 
ill  effects.  The  program  then  asks  if  you  wish  to  have  the  output  sent  to  the  screen  or 
to  a  file.  If  you  send  the  data  to  a  file,  the  program  runs  faster  and  you  will  have  the 
opportunity  to  review  and  print  out  the  data.  Sending  the  data  to  the  screen  is  a  quick 
way  to  see  if  the  program  is  executing  properly,  but  there  is  no  permanent  record  of  the 
run.  At  this  time,  the  program  is  not  able  to  print  to  both  the  screen  and  a  file.  The 
program  is  finished  when  the  DCL  (S)  prompt  returns  to  the  screen. 

Several  sample  input  data  files,  the  results  of  those  files  after  being  run  through 
JETFLAP  and  the  listings  for  the  JETFLAP  and  JETFLAPIN  programs  are  on  the 
following  pages. 
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JETFLAP  INPUT  DATA  FILE  VOYTEST.DAT 


THIS  IS  A  TEST  OF  THE  INPUT  PROGRAM  JT77IN  USING  VOYAGER  DATA 


59040. 0000 

1332. 0000 

0. 0000 

13. 5000 

0.  0000 

16  2  0  0  1 

1  0  0 

0. 998498 

0. 989489 

0.  959459 

0. 891892 

0.  792793 

0.  684685 

0.576577 

0. 400901 

0. 373874 

0. 355856 

0. 346847 

0.  324324 

0.  261261 

0.  162162 

11111 

y 

11111 

11111 

1 

0. 000000 

0. 074100 

0. 222200 

0. 370400 

0.  592600 

0.  740700 

0.  888900 

0. 998498 

13. 000000 

36. 099998 

0. 989489 

11. 900000 

36.400002 

0. 959459 

11. 200000 

37. 200001 

0. 891892 

10. 000000 

39. 099998 

0. 792793 

8. 300000 

41.  900002 

0. 684685 

6. 300000 

44. 900002 

0. 576577 

4.500000 

47. 900002 

0. 468468 

2. 300000 

51. 000000 

0. 400901 

0. 800000 

52. 599998 

0. 373874 

0.  400000 

53.400002 

0. 355856 

0. 100000 

53. 799999 

0. 346847 

0. 000000 

54. 000000 

0. 324324 

0. 000000 

54. 000000 

0.  261261 

0. 000000 

54. 000000 

0. 162162 

0. 000000 

54. 000000 

0.  054054 

0.  000000 

54. 000000 

g 

0  0  0  2  0 

11111 

11111 

11111 

1 

-12. 355000 

-9. 560000 

-4. 899000 

0. 764000 

5. 042000 

7.969000 

5.412000 

9 

9 


0.468468 
0.  054054 
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ORIGINAL  JETFLAP  INPUT  DATA  FILE  VOYAGR.DAT  (S.  M.  WHITE) 
VOYAGER  WING  FLAT  PLATE  AND  CAMBERED  CASES;  16X7  =  112  ELEMENTS 


59040. 0 

1332.0 

0.  0  13. 5 

1601000001010000 

. 998498 

. 989489 

.959459  .891892 

. 792793 

. 684685 

.576577 

.400901 

. 373874 

. 355856  .  346847 

. 324324 

.261261 

. 162162 

01010101010101010101010101010101 

07 

0.0 

.0741 

.  2222  . 3704 

.5926 

.  7407 

.8889 

. 998498 

13.0 

36.  1 

. 989489 

11.9 

36.4 

. 959459 

11.  2 

37.  2 

.891892 

10.0 

39.  1 

. 792793 

8.3 

41.  9 

. 684685 

6.3 

44.9 

.576577 

4.5 

47.  9 

. 468468 

2.3 

51.  0 

.400901 

0.8 

52.6 

. 373874 

0.4 

53.4 

. 355856 

0.  1 

53.8 

. 346847 

0.0 

54.0 

. 324324 

0.  0 

54.  0 

. 261261 

0.  0 

54.0 

. 162162 

0.0 

54.  0 

. 054054 

g 

0.  0 

54.0 

00000005 

01010101010101010101010101010101 

-12.355 

-9.560 

-4.  899  0.  764 

5.042 

7.969 

5.412 

9 


. 468468 
. 054054 
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PROGRAM  OUTPUT  DATA  FOR  VOYTEST.DAT 


•  EVD  JET  -  WING  COMPUTER  PROGRAM  a 


VOYAGER  WING  FLAT  PLATE  AND  CAMBERED  CASES;  UX7  «  112  ELEMENTS 


USED 

INPUT 

AREA  a 

0.133106 

59040.000000 

SPAN  a 

2.000000 

1532.000000 

CREF  a 

0.069765 

0.000000 

XMC  • 

0.020270 

13.500030 

C MAC  * 

0.069765 

46.463470 

ARATJO  a 

30.051224 

50.051226 

XCG  ■ 

0.000000 

0.000000 

NROWS 

NCASES 

ISYMM 

IPRINT 

JETFLG 

IGTYPE 

tHZNGE 


16 

1 

0 

0 

1 

1 

0 


16 

1 

0 

0 

1 

1 

0 


NUMBER  of  wing  ELEMENTS  *  112 
NUMBER  OF  JET  ELEMENTS  ■  0 
TOTAL  number  of  ELEMENTS  »  112 


•  ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE  l  • 


•  SECTION  1  V  a  0.998498  DELTA  * 


0.00 1502  XLEAD 
ML 


XB 

0.003000 

0.074100 

0.222200 

0.570400 

0.5*2600 

0.740700 

0.888*00 

x: 

C. 019520 

0 . 0220°C 

0.027226 

0. 0323*7 

0.0*0074 

0.045210 

0.050351 

DEL 

0.074100 

0.1*8100 

Q. 146200 

0.2222CO 

0. 1*8100 

0.148200 

0.111103 

EPS 

1  .CC00C9 

1.000000 

l.OOCOCO 

1.000000 

1.000000 

1.000900 

1.000000 

BETa 

0.000000 

C.  000000 

0 .000000 

0.030000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW  HAS  NO  JET 
ION  2  v  *  o. 

98*489  DELTA 

«  0.0C7507 

XLEAD  a 

0.01 78 6B 

XTRAIL  • 

0.0S46S5 

WING  ELEMENTS  NW  *  7 

XB  0.000000 

XI  Q.C17668 

DEL  0.074100 
EPS  I.C000C0 
BETA  0.000000 
TYPE  20 


TWIST  ■  0.000000 


THIS  ROW  HAS  NO  JET 
•«  SECTION  3  *»«•  Y  *  0.9594S9 


0.074100 

0.020594 

0.1481CC 

1.000000 

0.000000 

10 


0.222200 
0.026042 
0.148200 
1 .000000 
0.000000 
10 


HL  ■  0.000000 


*  0.019520  XTRAIL  •  0.054206  CHORD  >  0.034685  TANLE  ■ 


CHORD  •  0.036787  TANLE  * 


WING  ELEMENTS 

XF 

X! 

DEL 

E33 
BETA 
TYPE 


NW  *  7 

0.000000 
0 . 01 651 7 
0.074100 
1.000000 
0.000000 
■■.o 


.  .  0ELTA  *  0.022523 

TWIST  «  0.000000 

0.074100  0.222200 


0.3’0400 

0.031494 

0.222200 

1.000000 

0.000000 

10 

XLEAD 


THETA  S  ■  0.000000 


THIS  ROW  MAS  NO  JET 
SECTI3N  4  V  *  0.891592 


0.019710 

0.148100 

1.00CC3C 

0.000000 

10 


0.0254*1 

0.148200 

i.ccoeco 
o. oooooo 
10 


0.5*2600  0.740700  G. 888900 

0.059668  0. 045116  0.CS0S68 

0.168100  0.148200  Q.1U100 

1.000000  1.000020  1.0000C0 

0.000000  0.000000  0.000000 

10  10  10 

0.055856  CHORD  •  0.059059  TANLE  « 

000000 
0.888900 
0.051519 
0. 111100 
1.000000 
0.000000 
10 


0.016817  XTRAIL  • 
HL  *  0.000000  THETA  S  *  0. 

0.570600  0.5*2600  0.740700 

0.051277  0.059951  0.045735 

0.222200  0.168100  0.148200 

1.000300  1.300000  1.000000 

0.000000  0.000000  0.000000 

10  10  10 


NW  ■  7 


DELTA  »  0.045046  XLEAD  *  0.015015  XTRAIL  * 


TWIST  *  0.000000 


HL  «  0.000000 


theta  s  ■  0 


0.058709 

000000 


CHORD  •  0.043694  TANLE  « 


THI 

"»•  SECTION  5 
WING  ELEMENTS 

X8 
XI 
DEL 
EPS 
BETA 
Tvpg 
THIS  RCW  HA: 
**•  SECTION  6 
WING  ELEMENTS  NW 
XB 
XI 
CEL 
EPS 

feta 

TYPE 


XB 

0.090000 

0.074100 

6.222200 

0.370*00 

0.592600 

0.740700 

0.888900 

XI 

0.015015 

O.C 18253 

0.02472* 

0.03119* 

0.0*0908 

0.047379 

0.053854 

CEL 

0.074100 

0.1*8100 

0.1*8200 

0.222200 

0.1*8100 

0.148200 

o.imoo 

EPS 

l.OCOOOO 

1.000009 

l .000000 

1.0C0C00 

1.000000 

1.000000 

1.000000 

feta 

o.coocoo 

O.COOOOO 

0.000000 

0.000030 

0.000000 

O.COOOOO 

0.000000 

TYPE 

ROW 

2C 

HAS  NO  JET 

10 

10 

10 

10 

10 

10 

•*  Y  *  0.792793  DELTA  •  0.05*055  XLEAD 


=  7 

O.OCOCOO 
0.012462 
0.074100 
l.OCOOOO 
0.000300 
20 

*  NO  JET 
Y  « 

I  »  7 

0.000000 
0.009459 
C.C741C0 
1 .000300 
0.000000 
20 


TWIST  *  0.000000 

0.074100  0.222200 


0.016201 

0.168100 

1.000000 

0.000000 

10 


0.023673 

0.U82CC 

1.0C0C00 

c.ooocoo 

10 


0.012462 
HL  «  0.000000  THETA  S  *  0 

0.37060G  0.5*2600  0.760700 

0.042359  - 

0.1481C0 
l.COOOOO 
0.000000 
10 


0.03114* 

0.222200 

1.000000 

c.oocooo 

10 


XTRAIL  ■ 


0.049831 

0.168200 

1.000000 

0.000000 

10 


THIS  ROW  HAS  NO  JET 


0.686685  DELTA  *  0.05405 

TWIST  *  0.003000 

0 . 0761  CO  C. 222200 

0.013754  '  . . 

0.168130 
l.OOCOCO 
0.000000 
10 


0.022338 

0.168200 

1.000003 

0.000000 

10 


0.00*459 
HL  ■  C. 000000  THETA  $  «  0 

0 .570400  0.592600  0.760700 

'  0.063805  " 

0.148100 
1 .000030 
0.000000 
10 


XLEAD 


0.030927 

0.222200 

l.OCOOOO 

0.000000 

10 


XTRAIL 


0.052389 

0.148200 

1.000000 

0.000000 

10 


0.062*15  CHORD  «  0.050*50  TANLE  « 

,000000 
0 .888*30 
O.0S7308 
0.111100 
1 .000000 
0.000000 
10 

0.067627  CHORD  >  0.057958  TANLE  * 

,000000 
0.888*00 
0 . 06 C 9 78 
0.111100 
1.000000 
0.000000 
10 


"»•  SECTION  7  «»•  V  >  0.576577  DELTA  •  0.05*055  XLEAD  •  0.006757  XTRAIL  • 


s 

NW  *  7 

TWIST  •  0 

OOOOCO 

HL  •  0.000000  TXT*  $  ■  0 

XF 

0.000000 

0.074100 

0. 222200 

0.570400 

0.592600 

0.740700 

XI 

0.006757 

0.011585 

0.021236 

0.030894 

0.0*5374 

0.055025 

DEL 

0.07*100 

0.1*8100 

0. 148200 

0.222200 

0.1*8100 

0.1*8200 

E*S 

1.000000 

1 .C0CQ00 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

o.oocooo 

0.000000 

0.000000 

0.000000 

0.000000 

TvPE 

20 

10 

10 

10 

10 

10 

•  0.065165  TANLE  > 


SECTION 
NINO  ELEMEN1 


THIS  ROW  HAS  NO  JET 


I  ■»*  Y  ■  0.468*68  DELTA  a  0.05*05* 

NW  a  "  -  “  * - 


XLEAD 
0, 


a  0.005455  XTRAIL  • 


THl: 
SECTION 
MING  ELEMENTS 

XB 

XI 

del 

E*S 

BETA 

TYPE 


XB 

0.000000 

0.07*100 

o.::::oo 

0.370*00 

0.592600 

0.7*0700 

XI 

0.003*53 

0.008872 

0.019701 

0.030538 

0.0*6786 

0.357616 

CEL 

0.074100 

0.1*8100 

0.1*8200 

0.222200 

0.1*8100 

0.1*8200 

EPS 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

Type 

20 

10 

10 

10 

10 

10 

ROM  HAS  NO  JET 

0.400901 


DELTA  a  0.015513  XLEAD  • 


0.000000 

0.001201 

0.07*100 

l.COOOOO 

0.000000 

20 


TWIST  a  0.000000 
0.07*100  C. 222200 


0.006*65 

0.1*8100 

l.QOCOQO 

0.000000 

10 


0.018*85 

0.1*8200 

1.000000 

0.000000 

10 


_  0.001201  XTRAIL  • 

HL  •  0.000000  THETA  $  •  0 

0.370*00  0.S92600  0.7*0700 

0.030010  0.0*7292  0.058811 

0.222200  0.1*8100  0.1*8200 

1.000000  1.000900  1.000000 

O.COOOOO  O.OOOOCO  0.000000 

10  10  10 


0.071922  CHORD 
,000000 
0.888900 
0.06*682 
0.111100 
1.000000 
0.000000 
10 

0.076577  CHORD  a  0.075123  TANLE  • 
.000000 
0.880900 
0.068*52 
0.111100 
1.000000 
0.000000 
10 

0.078979  CHORD  •  0.077778  TANLE  ■ 

.080000 
0.888900 

0.070358 

0.111100 

1.000000 

0.000000 

10 


0.183335 


0.185533 


0.026667 


0.026212 


0.025750 


0.025000 


0.027778 


0.0319*4 


0.02777ft 


89 


THIS  ROW  HAS  NO  JET 
SECTION  10  V  a  0.375874  delta 


•  •i 

MING  ELEMENTS 

KB 
X! 

OEL 
EPS 
BETA 
TYPE 
THIS  ROW  ha: 
>nn  SECTION  11  *»• 


O.OOOCCO 
0.000601 
0.074100 
I. OOOOOO 
0.003000 
20 

-  NO  JET 
Y  *  0.5S58S6 


TWIST  *  0.000000 

0 . 0741 00  0  "■ 

0.00*497 
0. 140100 
1.0CCCCC 
0.000000 
10 


•  0.015514  XLEAD  •  0.000501  XTRAIL  •  0.080180 

.  . .  '  0. 000000 


00 

0.018285 

0.168200 

1.000000 

0.000000 

10 


HL  *  0.000000 


0.570430 

0.050077 

0.222200 
1. 000000 
0.000000 
10 


0.592500 
0.047759 
0.148100 
1 .000000 
0.000000 
10 


THETA  S  » 


CHORD  >  0.079580  TANLt  •  0.025411 


0.740700 

0.059545 

0.143200 

1.000000 

0.000000 

10 


0.886900 

0.071559 

0.111100 

1.000000 

0.000000 

10 


»•»  SECTION  12 

WING  ELEMENTS 


DELTA  «  0.004504  XLEAD  »  0.000150  XTRAJL  «  0.080781  CHORD  •  0.080451  TANLE  >  0.025000 


CHORD  •  0.081081  TANLE  *  0.000000 


ELEMENTS 

NW  a  7 

TWIST  a  0 

000030 

HL  a  0.800000  THETA 's' a  0 

000000 

XB 

0.003000 

0.074100 

0.222200 

0 . 570400 

0.592600 

0.740700 

0.888900 

XI 

O.CCOISO 

0.036125 

0.018066 

0.050016 

0.047952 

0. 05 9875 

0 .071825 

DEL 

0.074100 

0. 148100 

0.I48DC0 

0.222200 

0.148100 

0.1482C0 

0.111100 

EPS 

1.000300 

1.000030 

l.OOOCCO 

1.000000 

1.000000 

1.030000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

to 

to 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

*•«  Y  «  0.544847  DELTA  •  0.004505  XLEAD  •  0.000000  XTRA1L  •  0.081081 

.  . —  - -  0.000000 


TWIST  a  0.000000 


XB 

0.000000 

0.074100 

0.222200 

XI 

0. 000300 

0.006008 

0.028016 

DEL 

0.074100 

0.148100 

0.148200 

EPS 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

HL  «  0.000000 


THIS  ROW  HAS  NO  JET 
SECTION  15  *aa  V  a  0.524524  DELTA 


0.570400 

0.050052 

0.222200 

1.000000 

0.000000 

10 


0.592400 
0.048049 
0.148100 
1 .000000 
0.000000 
10 


THETA  S  a 


0.740700 

0.040057 

0.U8200 

1.000000 

0.000000 

10 


0.888900 

0.072075 

0.111100 

1.000000 

0.000000 

10 


WING  ELEMENTS 


TWIST  a  0.000000 


«  0.018018  XLEAD  ■  0.000000  XTRAXL  •  0.081081 

. —  - -  0.000000 


0.000000 


THETA  S  a 


XB 

0.000000 

0.074100 

0.222200 

0.570400 

0.592400 

0.740700 

0.888900 

XI 

0.000000 

0.006008 

0.018016 

0.050052 

0.048049 

0.060057 

0.072075 

DEL 

0.074100 

0.148100 

0.148200 

0.222200 

0.140100 

0.148200 

0.111100 

EPS 

1.000000 

1  .000000 

l. 000000 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.009000 

0 . 000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW  HAS  NO  JET 
SECTION  14  >m  v  a  0.241241  DELTA 


WING  ELEMENTS 


TWIST  «  0. 000030 


•  0.045045  XLEAD  •  0.000000  XTRA1L  • 


0.000000 


THETA  S  • 


0.081081 

000000 


XB 

0.000000 

0.074100 

0.222200 

0.570400 

0.592600 

0.740700 

0.888900 

x: 

0.000000 

0 . 0060C8 

0.018016 

0.050052 

Q.048C49 

0.060057 

0.072075 

CEL 

0.074100 

0-248100 

0.148ZC0 

0.222200 

0.148100 

0.148200 

0.111100 

EPS 

l.OCOCOO 

l.OCOCOO 

1.000000 

l.OCOCOO 

1.000000 

1.000030 

1.000030 

BETA 

0.000000 

0.000000 

0.300000 

0.900000 

0.000000 

0.000000 

0.000000 

TVPE 

20 

10 

10 

10 

10 

10 

10 

THIS  row  has  no  JET 
»•"  SECTION  15  »«•  V  S  0. 152142  DELTA 


WING  ELEMENTS 

X8 

xi 
DEL 
CPS 
BETA 
TYPE 


TWIST  a  0.000000 
0.074100  0.222200 


0.000000  - . ,  _ 

O.OOOCOO  0.006008  0.018014 

0.074130  0.148100  0.148200 

1.000000  l.OCOOOQ  1.000000 

C.QOOuOQ  0.003000  0.000000 

_  20  10  10 

THIS  ROW  MAS  NO  JET 

■*»  SECTION  U  Y  a  0.054054  DELTA 


a  0.054054  XLEAD  a  0.000000  XTRAIL  «  0.082081 

-  -  0.000000 


HL  >  0.000000 


0.570400 
0 .050052 
0.222200 
1 .000000 
0 .000000 
10 


0.592500 

0.048049 

0.148100 

1.000000 

0.000000 

20 


THETA  s  • 


CHORD  •  0.081081  TANLE  «  0.000000 


CHORD  •  0.081081  TANLE  -  0.000000 


CHORD  •  0.081081  TANLE  •  0.000000 


0.740700 

0.060057 

0.148200 

1.000000 

0.000000 

10 


0.888900 

0.072075 

0.111100 

1.000000 

0.000000 

10 


WING  ELEMENTS 


NH  a 


TWIST  a  0.000000 


a  0.054054  XLEAD  a  0.000000  XTRAIL  «  0.081081 

-  - - *  0.000000 


HL  *  0.000000 


theta 


CHORD  •  0.081081  TANLE  -  0.000000 


XB 

0.003000 

0.074100 

0.222200 

0.57040Q 

0.592600 

0.740700 

0.888900 

XI 

0.000003 

0.006CC8 

0.010016 

0.050052 

0.048049 

0.060057 

0.072075 

DEL 

0.074100 

0.  148200 

0.  148200 

0.222200 

O.J48100 

0.148200 

o.  imoo 

EPS 

1.003000 

l.OCOCOO 

1.000000 

1 .000000 

l. oooooo 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0 .000000 

0.000000 

0.000000 

0.000030 

TYPE 
THIS  ROW 

20 

MAS  NO  JET 

10 

10 

10 

10 

10 

10 

•  SECTIONAL  JET  BLOWING  COEFFICIENTS  • 


ROW 

CMU 

1 

0.000000 

* 

0.000000 

5 

0.000000 

4 

0.000000 

5 

0.000000 

6 

0.000000 

7 

O.OOOCCO 

8 

O.OOOCOO 

A 

0.000030 

10 

0.000000 

11 

0.003000 

22 

o. oooooo 

15 

O.OOOCOO 

14 

0.000000 

IS 

0.000000 

16 

O.OOOCOO 

•  CHORD* I SE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  ■ 


SECTION 

1  v  a 

0.998498 

CHORD  • 

0.054685 

I 

XB 

CASE  1 

CASE  2 

CASE  5 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

I 

0.000000 

0.206017 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

2 

0.074100 

0.082606 

0. oooooo 

0.000030 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

5 

0.222200 

0.055549 

0.000000 

O.OOOCOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

4 

0.570400 

0. 02*055 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

5 

0.592600 

0.015439 

0.000000 

0.000000 

0.000000 

0.0000 00 

0.000030 

0.000000 

0.000000 

0.000000 

0.000000 

6 

0.740700 

0.011045 

0.000000 

0.000000 

0.  oooooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

7 

0.888900 

0.006752 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000003 

DETAILED 

LEADING  EDGE  LOADING 

1 

0.014820 

0.296165 

2 

O.C29640 

0.195265 

5 

0.044460 

0.144467 

4 

0.059283 

0.109765 

5 

0.074100 

0.082606 

■  CHORDW13E  LOADING  FOR  ALL  FUNDAMENTAL 

CAMS  • 

SECTION 

2  Y  • 

0.989489 

CHORD  ■ 

0.05.7*7 

1 

XB 

CASE  1 

CASE  2 

CASE  1 

C*Sf  < 

CASE  S 

CASE  6 

CSC  7 

US s  • 

use  i 

use  io 

8 

0.000000 

«.sn« 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.800000 

0.000000 

0.000000 

9 

0.074100 

0.1S0969 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

10 

0.222200 

0.074147 

0.000000 

o. oooooo 

o. oooooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

u 

0.57040Q 

0.049467 

0.000003 

o. oooooo 

O.OOOCOO 

0.000000 

0.000000 

0.000030 

0.000000 

0.000000 

O.0C3000 

12 

0.592600 

0.029455 

0.000000 

0.000000 

0.000000 

0. oooooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

25 

0.74070 0 

0.020639 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o. oooooo 

0.000000 

14 

0.888900 

0.011980 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o. oooooo 

0.000000 

DETAILED  leading  edge  LOADING 


WING 


KING 


WING 


WING 


WING 


WING 


0.016920 

c.c2**4o 

0.0444*0 

0.05*280 

0.074100 


0.57*302 
0 . 262® 38 
0.20*061 
0.17550b 
C. 150849 


*  chordwise  LOADING  for  all  fundamental  cases  • 


I 

XB 

CASE  1 

SECTION 
CASE  2 

3  V  . 

CASE  3 

0.859458 
CASE  6 

CHORD  • 
CASE  5 

0.039039 
CASE  b 

CASE  7 

case  e 

CASE  9 

CASE  10 

IS 

0.000000 

0.320581 

0.000000 

O.OOOCOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

lb 

0.074130 

0.18513b 

o.ocoooo 

o.ooooco 

0.000300 

0.030000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

17 

0.222200 

0.102888 

0.000300 

0.000030 

o.ooooco 

o.ooocoo 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

18 

0.370400 

0.072245 

o.ocoooo 

0. cococo 

0.090000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

1* 

0  .582600 

0.046937 

o.ooocoo 

0.003000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOGOOQ 

O.OOOCOO 

0.000000 

20 

0.740700 

0.031*47 

0. 000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

21 

0.888800 

0.018411 

3.000000 

o.ooooco 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

•> 

«- 

3 

4 

5 

0.014820 

0. 028440 

0. 044460 
0.058280 
0.074100 

0.474177 

0.530488 

0.2b67bl 

0.224078 

0.18513b 

detailed  leading  edge  loading 

-  CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  « 


SECTION 

4  V  • 

0.8*1882 

CHORD  « 

0.043694 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  b 

CASE  7 

22 

o.ooocoo 

0.351175 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

23 

0.074100 

0.215023 

0.000000 

0.000003 

0.000000 

0.000000 

0.000000 

0.000000 

24 

0.222200 

0.  11478b 

0.000000 

0.003000 

0.000000 

0.000000 

0.000000 

0.000000 

25 

0.370430 

C. 081531 

0.000000 

o.occooo 

0.000000 

0.000000 

0.000000 

0.000000 

2b 

0. 582430 

0-051545 

0.000000 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

27 

0.7*0700 

0. 034574 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

28 

0.883800 

0.021471 

0.000000 

o.ooocoo 

0.000000 

o.ooocoo 

0.000000 

0.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0.014820 

0.518482 

2 

0.02**40 

0.342533 

0 . 0444*9 

0.28C787 

c 

0 .  05*280 

0.24*675 

5 

0.074100 

0.215023 

»  CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES  * 

SECTION 

5  Y  « 

0.782783 

CHORD  » 

0.050450 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  b 

CASE  7 

29 

0.000000 

0.358757 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

SO 

31 

32 
S3 

34 

35 


0 . C74  2  00 
0 .222200 
0.370400 
0.5*2630 
0.74C7C0 
0 .888900 

0.016820 
0.029640 
0.0446*0 
0 . 058280 
0. 0741  CO 


0.22048b 
0.1178*8 
0.08 3857 
0. CS3168 
0.037785 
0.022221 

0.532425 

0.371474 

0.2*8018 

0.2526*5 

0.22048b 


o.ooocoo 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 


c.oocooo 

0.000000 

0.000000 

O.CCCCGO 

o.ooocoo 

0.090000 


0.000000 

0.003000 

c.oocooo 

o.ccoooo 

o.ocoooo 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

o.ocoooo 

0.000000 


DETAILED  LEADING  EDGE  LOADING 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  8 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  5 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  0 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 


CASE  10 

0.000000 

0.000000 

0.000000 

O.COOQOO 

0.000000 

0.000000 

0.000000 


CASE  9 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 


CASE  10 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000020 

0.000000 

0.000000 


*  CMORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  * 


I 

XB 

CASE  l 

SECTION 
CASE  2 

b  V  a 

case  : 

0 .  *86*85 
CASE  4 

CHORD  • 
CASE  5 

0.057958 
CASE  b 

CASE  7 

CASE  8 

CASE  * 

CASE  10 

Jb 

o.ocoooo 

0 • JbC14? 

o.ocoooo 

o.ooooco 

o.ocoooo 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

3; 

C.C74100 

0.220753 

0.300000 

O.OGOOiO 

O.OGC3CO 

0.000000 

0.000000 

0.000003 

0.000000 

0.000000 

0.000000 

38 

0. 118077 

0.000000 

o.coccco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

3* 

c. 370400 

0.084037 

0.C00090 

C.COCDCO 

0.000330 

0.000000 

0.000000 

0.000000 

0.000000 

0.003000 

o.ooocce 

40 

0.582400 

c.o$::to 

o.ooooco 

c.occcoc 

O.OOOCOO 

o.ooooco 

0.000000 

o.ooooco 

0.000000 

o.occooo 

0.000000 

41 

0.740700 

0 .037862 

0.000000 

C. 003030 

0.030000 

0.000009 

0.000000 

0.000000 

0.000030 

o.ooooco 

o.ooocoo 

42 

0.8888C0 

0.022249 

0.000000 

o.ooocoo 

o.occooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

1 

3 

4 

5 

0.014820 

0.02844C 

0.044440 

0.05*280 

0.074100 

0.533005 

0.371839 

0.2*8358 

0.252*41 

0.220753 

DETAILED  LEADING  EDGE  LOADING 

»  CHORD*; SE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  • 


I 

XB 

CASE  1 

SECTION 
CASE  2 

7  V  > 

CASE  3 

0.576577 
CASE  4 

CHORD  • 
CASE  S 

0.065165 
CASE  b 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

43 

0.009000 

0.359147 

0.000900 

0.009000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

44 

0. 074100 

C. 220125 

0.C0C330 

O.OCCOOO 

o.ooooco 

o.ocoooo 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

45 

0.22:2:0 

C.  1 J  7705 

O.OOOCOO 

0.02CC09 

0.030000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

4* 

C. 370400 

o.ces7bi 

O.OOOOCO 

o.ooocoo 

o.ooocoo 

0.000900 

0.000000 

0.000000 

0.000900 

0.000000 

0.090000 

47 

C. 5*2*00 

0.053107 

0.000000 

o.oocooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

48 

0.740700 

C. 037733 

0.009000 

O.COOQOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

49 

0.8889C3 

0.022192 

0.003000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

2 

3 

4 

5 

00000 

00000 
MU*I '»>  — 

fr'fjcsv.a 

OCI*  f'  r  J 

00000 

00000 

OHMOH 

Mr^nui 

DETAILED  LEADING  EDGE  LOADING 

•  CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  • 


X 

XB 

CASE  1 

SECTION 
CASE  2 

8  Y  • 

CASE  3 

0.468468 
CASE  4 

CHORD  * 
CASE  S 

0.073125 
CASE  b 

CASE  7 

CASE  • 

CASE  9 

CASE  10 

so 

0.000000 

0.SS3019 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

51 

0.074100 

0. 214279 

0.000000 

0.000900 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

52 

0.222200 

0.115580 

0.000000 

0.000000 

0 .000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

S3 

0.370400 

0.082200 

0.000000 

0.000090 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000030 

54 

0.5*2600 

0.052032 

0.000090 

0.000030 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

ss 

0.740700 

0 .036978 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

Sb 

0.888900 

0.021711 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.080000 

0.000000 

1 

2 

3 

6 

s 

00000 

*»o 

00000 

00000 

0.52243b 

0.364487 

0.2923*0 

0.247871 

0.216278 

detailed  leading  edge  loading 

91 


wing 


MING 


WING 


MING 


MING 


MING 


*  CHQROWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  * 


1 

XB 

CASE  1 

SECTION 
CASE  2 

♦  V  * 

CASE  3 

0.400901 
CASE  4 

CHORD  • 
CASE  5 

0.077778 
CASE  8 

CASE  7 

CASE  • 

CASE  9 

CASE  10 

5? 

0.000000 

0.343243 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

5« 

0.074100 

0.210504 

0.000300 

0.000000 

0.000000 

0.000000 

0.090000 

0.000000 

0.000000 

0.000000 

0.000000 

59 

0.22C200 

0.113518 

0.000000 

0.000000 

0.000900 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

0.000090 

40 

0.370400 

0.080*23 

0.000000 

0.000000 

c.ccoooo 

0.000000 

0.000000 

0.000900 

0.000000 

0.000000 

0.000000 

41 

0.592600 

0.051287 

o.ococoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

•2 

0.740700 

0.034404 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

0.000000 

0.000000 

4  3 

0.008900 

0.021314 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

2 

5 

4 

5 

0.014820 

0.029440 

0.044440 

0.05*280 

0.074100 

0.5Q80U 

0.354480 

0.284422 

0.241280 

0.210504 

DETAILED  LEADING  EDGE  LOADING 

•  CHORDW1SE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  « 


z 

XB 

CASE  1 

SECTION 
CASE  2 

10  V  « 

CASE  3 

0.37J874 
CASE  4 

CHORD  • 
CASE  S 

0.079580 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  SO 

44 

0.000000 

0.345144 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

8.000000 

0.000000 

45 

0.074100 

0-211294 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

44 

0.222200 

0.112875 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000090 

47 

0.370400 

0.080337 

0.000000 

0.000.030 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

48 

0.592400 

0.050849 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

49 

0.740700 

0.034120 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

70 

0.888900 

0.021182 

0.000000 

0.000090 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

2 

3 

4 

5 

ooooo 

OOOOO 

ooooo 

0.510777 

0.154305 

0.285775 

0.242210 

0.211284 

DETAILED  LEADING  EDGE  LOADING 

*  CHCRDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  ■ 


I 

XB 

CASE  1 

SECTION 
CASE  2 

11  V  • 

CASE  3 

0.355854 
CASE  4 

CHORD  > 
CASE  5 

0.080431 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

71 

c.cocooo 

0.3417*0 

O.OOOOCO 

0.090000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

72 

0 . 074  ICO 

0.210332 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

73 

0.222200 

0.113274 

O.OCCGOO 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

o.ooocoo 

0.000000 

0.000000 

74 

0.370400 

C. 080521 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

0.000000 

75 

0 . 5  *2o  00 

C.05C893 

C.OCOOOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

74 

0.740700 

0.034C75 

0.000000 

0.00 0009 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

77 

0.883900 

0 . 021C87 

0 . 000000 

0.090000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

3 

4 

5 

0.014820 

0.029440 

0.Q44660 

0.05*280 

0.074100 

0.504105 

0.355447 

0.283949 

0.241133 

0.210832 

DETAILED  LEADING  EDGE  LOADING 

•  CMORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  » 


I 

XB 

CASE  1 

SECTION 
CASE  2 

12  V  • 

CASE  5 

0.346847 
CASE  4 

CHORD  • 
CASE  5 

0.081081 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

78 

0.050000 

0.342009 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

79 

0 . 074 1 CO 

0.211159 

o.ooocoo 

0.000300 

0.000000 

0.000000 

0.000000 

9.000000 

0.000000 

0.000000 

0.000000 

80 

0.222200 

0.113382 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

o.ooocoo 

81 

0.3704C9 

0.080437 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

82 

0.592400 

0.050939 

0.000000 

0 . 000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

83 

0.74C7CO 

0.034122 

0.000000 

0.030000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

84 

0.888900 

0.021080 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

* 

» 

4 

5 

0.014820 

0.029440 

0.0444b0 

0.059280 

0.074100 

0.507824 

0.354557 

0.284706 

0.241*53 

0.21115* 

DETAILED  LEADING  EDGE  LOADING 

■  CHORD* l SE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  « 


I 

XB 

CASE  1 

SECTION 
CASE  2 

13  V  • 

CASE  3 

0.324324 
CASE  4 

CHORD  • 
CASE  5 

0.081081 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

85 

0.000000 

0.347787 

0.000000 

0.000000 

0.009000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

86 

0.074100 

0.213037 

0.000000 

0.0C9000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

s; 

0.222200 

0.113843 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 

88 

0.370400 

0 . 030*82 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

89 

0.592600 

0.051286 

o.ooocoo 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000009 

o.ooooco 

0.000000 

90 

0.740700 

0.036423 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

o.ooooco 

0.000900 

91 

0 .838900 

0.021583 

c.  009000 

0.000900 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

2 

2 

3 

4 

5 

0.024820 

0.029440 

0.044440 

0.059280 

0.074100 

0.514485 

0.559071 

0.288034 

0.244U8 

0.213037 

DETAILED  LEADING  EDGE  LOADING 

•  CHORDHISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  " 


1 

XB 

CASE  1 

SECTION 
CASE  2 

U  V  • 

CASE  3 

0.241241 
CASE  4 

CHORD  • 
CASE  5 

0.081081 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

92 

0.000000 

0.352101 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

93 

0.074100 

0.215751 

0.000000 

0.000000 

8.000000 

0.000000 

0.080000 

0.000000 

0.000000 

0.000000 

0.000000 

94 

0.222200 

0.115339 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

95 

0.370400 

0.082035 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.080000 

0.000000 

0.000000 

94 

0.592400 

0.051954 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

97 

0.740700 

0.054942 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

98 

0.088900 

0.021724 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

2 

3 

4 

5 

0.014820 

0.029440 

0.044440 

0.059280 

0.074100 

0.521084 

0.343553 

0.291450 

0.247254 

0.215751 

DETAILED  LEADING  EDGE  LOADING 

•  CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  • 
SECTION  is  V  •  0.142142  CHORD  -  0.081081 


l 


92 


Nlwr; 


1 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

99 

c.ccoooo 

0.355045 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

100 

0.074100 

0.217624 

0.000000 

o.ocoooo 

o.ocoooo 

0.090000 

0.000000 

0.000000 

101 

0.222200 

0.116296 

o.oocooo 

c.ocooco 

0-000000 

0.000000 

0.000000 

o.ocoooo 

102 

0.570400 

0.082842 

0.000000 

o.ooocoo 

o.ooocoo 

0.030000 

0.000000 

0.000000 

103 

0.592600 

0.0524*5 

o.oocooo 

0.000000 

0.000009 

0.000000 

o.oocooo 

0.000000 

104 

0.740700 

0.037337 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

105 

0.888900 

0.021960 

0.000030 

0.000000 

o.ooocoo 

o.ocoooo 

0.000000 

0.000000 

DETAILED  LEADING  EDGE  LOADING 

1 

0.014820 

0.525454 

5 

0.029640 

0 . 3ee62  0 

3 

0.046460 

0.294130 

4 

0.059280 

0.249376 

5 

0.074100 

0.217624 

»  CMORDWISE  LOADING  FOR  ALL 

fundamental  cases  ■ 

SECTION 

16  V  * 

0.054054 

CHORD  « 

0.081081 

I 

XB 

CASE  1 

Case  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  • 

0.000000 

0.000000 

o.oooqoo 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  9 

0.000000 

0.000000 

0.000090 

o.ooocoo 

0.000000 

0.000000 

0.000000 


CASE  10 

0.000000 

o.oocooo 

0.000000 

0.000900 

0.000000 

0.000000 

0.000000 


106 

107 

108 
m 
110 
111 
112 

1 

2 

3 

4 

5 


SECTION 


0.000000 
0.0741C0 
0.222200 
0.370400 
0 .5*2600 
0.740700 
0.888900 

0.014820 
0.029640 
0. 044460 
0.059280 
0.074100 


0.356321 

0.218427 

0.116840 

0.083175 

0.052723 

0.037499 

0.022060 

0 .527246 
0.367946 
0 . 2952  C  0 
0.250289 
0.218427 


0.000000 

0.000030 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

o.oocooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

detaileo 


0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 


0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


LEADING  EDGE  LOADING 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  8 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  9 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


CASE  10 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

O.OOOOC0 

0.000000 


■  SPANWISE  LOADING  POP  FUNDAMENTAL  CASE  1  « 


LIFT 

CLMU 


INDUCED  DRAG 


I 

0. 9*8698 

0.C39682 

O.OOCOOO 

0.039682 

a 

0.0006926 

0 . 0000000 

00 005489 

0.0001437 

0.0000000 

0.0006882 

0.0572168 

2 

0.989689 

0-066037 

0.000000 

0.066037 

M 

0.0011526 

0.0000000 

0. 0008555 

0.0002971 

0.0000000 

0.0012146 

0.0245104 

3 

6 . 959459 

0.08*456 

c.coccco 

0-089456 

a 

0.0015613 

0.0000000 

0.0013291 

0.0002322 

0.0000000 

0.0017461 

0.0059517 

4 

0  .8918*2 

0 . 099763 

o.oooocc 

0.099763 

N 

0.0017412 

0.0000000 

0.0015949 

0.0001463 

C. 0000000 

0.0021795 

0.0019683 

5 

0.7927*3 

0. 1C247* 

0.0C0QC3 

0.102479 

M 

0.0017686 

0.0000000 

0.0016758 

9.0001148 

0.0000900 

C.C02S851 

0.0010645 

6 

C . 6846S5 

0.102628 

o.oocooo 

0.102628 

a 

0.0017912 

0.0000000 

0.0016775 

0-0C01 157 

0.0000000 

0.002*741 

0.0011086 

7 

0.576577 

0.192320 

o.oocooo 

0.102320 

a 

0.0017858 

0.0000000 

0.00 16682 

0.0001177 

0.0000000 

0.0053358 

0.0015567 

8 

0 . 6634o8 

0.109461 

0.900000 

0.100461 

a 

C. 0017534 

0.0000000 

0.0016117 

0.00014U 

0.0000000 

0.0056750 

0.0017259 

0.602*01 

0.098249 

o.oocooo 

0.098249 

* 

0.0017148 

0.0000000 

0.0015237 

0.0001911 

0.0000000 

0.0058208 

0.0015511 

10 

C. 373874 

0.098166 

C. 000000 

0.098166 

a 

0.0017135 

0.0000000 

0.0015408 

0.0001725 

0.0000000 

0.0059060 

0.0020781 

11 

0.355856 

0.097946 

0.000000 

0 . 09794*- 

■ 

0 . 00 1 7095 

0.0000000 

0.0015108 

0.0001986 

0.0000000 

0.0059487 

0.0019957 

12 

0 . 34  684  7 

C . C°8 124 

o.ocoooo 

0.098124 

N 

0.0017126 

0.0000000 

0.0015216 

0.0001910 

C.OOOOCOO 

0.0059780 

0.0026141 

13 

0.3242:6 

0.098970 

o.ocoooo 

0.098970 

« 

0.0017274 

0.0000000 

0.0015643 

0.0001631 

0.0000000 

0.0040123 

0.0025514 

14 

0.261261 

0.100253 

o.ocoooo 

0.100253 

a 

0.0017497 

0 . 0000000 

0.0016054 

0.0001464 

0.0009000 

0.0040643 

0.0020519 

15 

C.  l®2:t>2 

0.101171 

0.000000 

0.101171 

■ 

0.0017658 

o.odooooo 

0.0016305 

0.0001355 

0.0000000 

0.0041015 

0.0017824 

1» 

0.054054 

0 . 1 21S©2 

0.000000 

0.101562 

a 

0.0017726 

0.0000000 

0.0016420 

0.0001306 

0.0000000 

0.0041174 

0.0016699 

total 

0.100170 

0.000000 

0.100170 

a 

0.0017483 

0.0000000 

0.0016073 

0.0001410 

0.0000000 

0.0000962 

.  PITCHING  MOMENT 

..  LIFT  CENTER  ... 

SECTION 


CMT 


l 

0.998498 

-0.007753 

0.000000 

0. 000000  -0.007753 

M 

a 

0.195580 

0.195580 

0.989489 

-0. 014751 

o.cooooo 

0.000000  -0.014751 

» 

a 

0.223377 

0.225577 

3 

0 . 959459 

-0.021497 

o.ooocoo 

O.OOOOCO  -0.021497 

a 

a 

0.240511 

0.240511 

4 

0  .8?18c2 

-C.C24406 

o.ooooco 

0.000000  -0.024406 

a 

a 

0.244641 

0.244641 

5 

0.792793 

-0.02514- 

o.ooocoo 

0.000000  -C. 025140 

a 

a 

0.245517 

0.245517 

b 

0 . 684cS5 

-0.C2SI8'. 

0.000000 

0.000070  -0.025185 

a 

a 

0.245599 

0.245399 

7 

0.S76577 

-0.025104 

o.ocoooo 

0.000000  -0.025104 

a 

a 

0.245550 

0.245550 

8 

0. 468468 

-0.024620 

o.ooooco 

O.OOCOOO  -0.024620 

a 

a 

0.245070 

0.245070 

9 

0.400901 

-0.024190 

0.000000 

0.000000  -0.024190 

• 

a 

0.246213 

0.246213 

10 

0.373874 

-0.024053 

o.ooocoo 

0.000000  -0.024053 

a 

a 

0.245026 

0.245026 

11 

0.35S856 

-C.C24058 

c. 000000 

O.OOCOOO  -0.024058 

a 

a 

0.245625 

0.245625 

i: 

0. 34*347 

-0.024084 

o.oocooo 

O.OCOOOO  -0.024C84 

a 

a 

0.245446 

0.245446 

15 

0.526324 

-0.0242?*: 

0.030000 

0.000000  -0.024256 

• 

a 

0.24 5084 

0.245084 

14 

0.261261 

-0 . 02-584 

0.000000 

0.000000  -0.01658* 

a 

a 

0.245225 

0.245225 

15 

0.162162 

-0.024527 

o.ooooco 

0.000000  -0.024827 

a 

a 

0.245599 

0.245399 

16 

0.054054 

-0.024930 

o.oocooo 

o.ooooco  -o.o:«9;g 

a 

a 

0.245464 

0.245464 

total 

-0.031169 

o.oocooo 

O.OOCOOO  -0.031169 

(APEX) 

0.311161 

0.311161 

-o.oo:c©5 

o.ocoooo 

0.000000  -0.0020bS 

(XMC) 

0.021708 

0.021708 

*  total  AERODYNAMIC  COEFFICIENTS  « 


CASE  I 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

CCLG 

0 . 1 CC1699 

0.0000000 

o. oooocoo 

0.0000000 

0.0000000 

o.ocooooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCLJ 

0.0000000 

e.ooccoeo 

o. oooocoo 

0.0000000 

0. oooocoo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000. 

aa 

CCw 

0.1C3UP9 

c. 0000000 

0.0003000 

o.ooocooo 

0.0000000 

0 . oooooco 

0 . 0000000 

0.0000900 

0. oooocoo 

0.0000080 

CCDS 

O.CCi/483 

o. oooocoo 

o.ooococo 

o.ooocooo 

0. oooocoo 

0.0000000 

0.0000000 

0.0000000 

0. oooooco 

0.0000000 

CCDJ 

0 . 0090  000 

o.occcooo 

c.ooccoro 

o.ccooooo 

o.ooocooo 

0.0000000 

0.0000000 

o.ooocooo 

o.ooocooo 

0.0000000 

CCS 

O.CC:s975 

o.oocccco 

o. oooocoo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.000003C 

0.0000000 

CCD 

0.0001410 

O.OOOOCCiO 

o. oooocoo 

c. 0000000 

0.0000000 

0. oooooco 

0.0000000 

0. oooooco 

0. oooocoo 

0.0000000 

a  a 

CDIT2 

0.cc:0962 

0.0000030 

0.0:000:0 

o.ooococo 

o.ooococo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.COCOOQO 

aa 

CCJ 

o.occooco 

0.0000000 

0.0000000 

0.0000030 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCK5 

-0.0511690 

0.0000000 

o.oocooco 

0.0000000 

0.0000000 

0.0000000 

8.0000000 

0.000000c 

0.0000800 

0.0000080 

CCMJ 

0.0000000 

0. 0000090 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.8000000 

0.0000000 

CCMT 

0.0000000 

0.0000000 

o.ooococo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCM 

-0.031 16*0 

0. oooocoo 

0.0000000 

o.ocoocoo 

0.0000000 

o.oeooooo 

0.0000000 

0.0000900 

0.0000000 

0.0000000 

CXCP 

0.3111612 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CXCL 

0.3111612 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CXCP3 

0.0217081 

0.0009000 

0.0000000 

0.0C90000 

0.0000000 

0.0000000 

0.0000080 

0.0000000 

0.0000000 

0.0000000 

CXCL6 

0.0217081 

0.0000000 

o.ooocooo 

0.0000 000 

0.0000000 

0.0000000 

0.0000000 

0.0000800 

0.0080000 

0.0000000 

CCM3MC 

-0 .0020645 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCMJMC 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCMTMC 

0.0000000 

0.0000000 

o.ooocooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

aa 

CCMMC 

-0.0020645 

0.0000300 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0:0000000 

0.0000000 

CLLG 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CLLJ 

0.0000030 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

* 

CLL 

0.0000300 

0 .0003000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0800800 

0.8000000 

0.0800080 

CNJ 

0.0000000 

0.0000000 

0.0000000 

0 .0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

■ 

CNIMC 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

• 

CCV 

0.0000000 

0.0000000 

0.0000000 

0.0090000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CB3R 

0.0435954 

0.0000000 

0.0000009 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

cbsl 

0.0455954 

0.0000000 

o.ooocooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CBJR 

0.0000030 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CBJL 

0.0000000 

0.0009000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CBR 

0.0456954 

o.ooococo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

C8L 

0.0455954 

0.0003000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0. 0000000 

CPM8R 

0.4362143 

0 . oooocoo 

0.0000000 

0 . 0000000 

0.0000000 

0.0000000 

0.0000000 

0.0880080 

0.0800080 

0.0808000 

CPMBL 

0.4552143 

0.0000000 

0.0900000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 
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•  TtC 

MOO*  AH 

HAS 

HO* HAL 

Tfc*NJMAT JON  • 

•  THt 

**00* AH 

»•»«« 

HAS 

«E»Ch£D 

MO*  HAL 

TC*NSNA7IQM  • 
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JETFLAP  INPUT  DATA  FILE  DOUGLAS.DAT 


**  ONR  SAMPLE  CASE 

***  RECTANGULAR  WING  CMU  »  1  WITH  STABILITY  DER 

4.  500 

4.500 

1.  000 

0.250 

0.  250 

4  3  0  0 

0  2  11 

0.9750 
112  1 
5  6 

0. 88750 

0.  68750 

0.2750 

0.000 

0.  100 

0.  200 

0.  500 

0.900 

0.  000 

0.  100 

0.  200 

0.  500 

0.  800  0.  900 

4.500 

1111 

4 

0.  000 

1.000 

1.  000 

1.  100 

1.500 

3.000 

0  0  10 

0 

1.000 

1.  000 

1.000 

1.000 

0  0  0  0 

1 

0  0  10 
0.  9000 

0  1.000 

1  0.00 
g 

2  10.00  3 

10.  00 

1.  000 

1.  000 

1.000 

1.000 

9 
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PROGRAM  OUTPUT  DATA  FOR  DOUGLAS.DAT 


■  EVD  JET  -  WING  COMPUTER  PROGRAM  a 


*«  OMR  SAMPLE  CASE  ***  RECTANGULAR  wing  CMU  •  l  WITH  STABILITY  OCR 


USED 

INPUT 

AREA  a 

0.880009 

4.500000 

SPAN  a 

2.000000 

4.500000 

CREF  a 

0.466664 

1.000000 

XMC  a 

0.221112 

0.250000 

CMAC  a 

0.446644 

Q. 999999 

ARATIO  a 

4.500000 

4.500000 

XCG  a 

0. Ullll 

0.250000 

NROWS  * 
NCASES  « 
IS VMM  * 
IPRINT  a 
JETFLG  • 
IGTVPE  > 
IHINGE  a 


NUMBER  OP  WING  ELEMENTS  • 
NUMBER  OP  JET  ELEMENTS  • 
TOTAL  NUMBER  OP  CLEMENTS  • 


21 

It 

37 


«  ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE  1  ■ 


•*"  SECTION  1  V  a  0. *75000  DELTA  a  0.025000 

WING  ELEMENTS  NW  *  s  TWIST  •  0.000000 

XB  0.000900  0. 100000  0.200000 

XI  0.000309  0.044644  0.0688** 

DEL  0.100000  0.100000  0 . 200000 

Z°Z  1.000000  i.COOOOO  1.000000 

BETA  o.cosoco  O.OOOOCO  0.009000 

type  20  10  10 

JET  ELEMENTS 


•  •*  SECTION 
WING  ELEMENTS 

XB 

xi 

DEL 

EPS 

BETA 

Type 

JET  ELEMENTS 


s 

NJ  »  4 

D  a  0.889889  DJ 

a  0.000000 

XB 

1.000000 

1.100000 

1.500000 

3.000000 

XI 

0.664444 

0.488889 

1.333133 

DEI 

0.100000 

0.600000 

1 .500000* 

beta 

0.000000 

0. ocoooo 

0.000000 

0.000000 

TYPE 

10 

10 

10 

30 

XLEAD  a  0.000000  XTRAIL 
ML  *  0.000000  T«TA  S  • 

0.500000  0.900000 

0.222222  0 .600000 
Q.tCOOOO  0.100000 
1.000000  l. OCOOOO 
0.000000  0.000000 
10  10 

ACTE  •  0.000000 


>  0.444444  CHORD  •  0.644444  TANLE  ■ 

0.000000 


THETA  •  l. 000000 


2  •••  V  ■  0.887500  DELTA  *  0.042500  XLEAD  • 


0.000000 
O.OOOOCO 
0.10C000 
1.000000 
0.000000 
20 


TWIST  a  0.000000 

0.100000  0.2C0000 


0.044444 
0.1000C0 
1.000000 
0.000000 
10 


0.088889 
O.SOOOOO 
1.000000 
0.000000 
10 


SECTION  S  *a» 
WING  ELEMENTS 


JET  ELEMENTS 


SECTION  4 
WING  ELEMENTS 


J£T  ELEMENTS 


5 

NJ  a  6 

D  .  O.mll)  DJ 

a  0.000000 

XB 

1. OCOOOO 

1.100000 

1.500000 

3.000000 

XI 

0.646644 

0.488889 

0.666667 

j. s;::ss 

del 

C.  100000 

0.600300 

1.500000* 

beta 

0.300000 

0.000000 

0. OCOOOO 

o.ioccoo 

Type 

10 

10 

10 

30 

0.000000  XTRAIL 
ML  >  0.000000  THETA  S  • 

O.SOOOOO  0.900000 
0.400000 
0.100000 
I . ocoooo 
0.000000 
10 

ACTE  >  0.000000 


.  2 ‘’■'22'* 

o!  600000 

I. 000000 
0.000000 
1C 


t  0.466466  CHORD  a  0.444444  TANLE  • 
0.000000 


THETA  •  I. 000000 


V  a  0 . 4875 CO  DELTA  •  O.1S7S00  XLEAD  a  0.000000  XTRAIL 


TWIST  a  0.000000 


HL 


XB 

0.000000 

o.iooooo 

0.200000 

0.500000 

XI 

0.000000 

0 . 0«*4464 

0.088889 

0.222222 

DEL 

0.130000 

O.IOOOOO 

0.300000 

0.300000 

EPS 

1.00000-0 

I .000000 

1.000000 

1.000000 

BETA 

0. ocoooo 

0.000000 

0. ocoooo 

0.000000 

Tvp£ 

20 

10 

19 

10 

s 

NJ  »  4 

D  a  0.888889  DJ  a 

0.000000 

XB 

I.COOOOO 

1.100000 

1.5000C0 

3 . 000000 

XI 

0.446644 

0.488889 

0 . 6ao6»7 

1.333333 

del 

0.103000 

0.400000 

1 .500000*" 

BE  '  A 

C.  000000 

C. 000000 

0.000000 

o.cooooo 

TYPE 

10 

10 

10 

30 

_  0.444444  CHORD  •  0.444444  TANLE  • 

0.000000  theta  s  •  0.000000 
0.800000  0.90U000 

-  0.400000 

0.100000 
2.000000 
J.0Q0000 

0.009000  THETA  •  1.000000 


0.3SSSS* 

0.103000 

t.ooocoo 

0.000000 

10 

ACTE  • 


TWIST  a  0.000000 


ml  *  0.000000 


»«•  V  «  0.275000  DELTA  a  0.275000  XLEAD  «  0.000000  XTRAIL  a  0.446444  CHORD  •  0.444464  TANLE 

.  .  . S  •  0.000000 


THETA  a  1.000000 


XB 

0.000000 

Q.iOQOCQ 

0.200000 

0.500000 

0.900000 

x: 

0.000030 

0.064666 

0.088889 

0.222222 

0.400000 

del 

0. 100030 

0.103300 

0.303000 

0.600000 

C .  100000 

EPS 

1  .ooocco 

1 .000003 

1.00 0000 

I.COOOCO 

1,000000 

BETA 

0.000300 

0.000300 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

s 

NJ  a  4 

D  a  0.88888 

9  DJ 

a  0.000000 

XB 

1  .000000 

I.IOOCCO 

1.500009 

3.000300 

x; 

0.444466 

0.68e88? 

0.666667 

1.335333 

DEL 

0.100000 

0.400000 

1 .500000* 

BETA 

0.000000 

0 . 000000 

0.000000 

c. 000000 

TYPE 

10 

10 

10 

SO 

ACTE  •  0.000000 


■  ELEMENT  GCOMETRv  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE  2  ■ 


■**  SECTION  1  V  •  0.975000  DELTA  •  0.025000  XLEAD  • 


WING  ELEMENTS 

HW  a  5 

TWIST  a  0 

000000 

HL  a  0.000000  T 

XB 

0.000060 

0.200000 

0*200000 

O.SOOOOO 

0.900000 

EPS 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

ip* 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

type 

20 

10 

10 

10 

10 

JCT  ELEMENTS 

NJ  a  4 

0  •  0 .888889  OJ 

•  1.000000 

ACTE 

XB 

1.000000 

1.100000 

1.500000 

3.000000 

beta 

1.000000 

0.000000 

0.000000 

0.000000 

TYPE 

<s 

10 

10 

so 

0.000000  XTRAIL 
TMETA  S  ■ 


i  0.444444 
0.000000 


CHORD  •  0.444444  TANLE  • 


•  0.000000 


THETA  •  1.000000 


#**  SECTION  2 

MING  elements  m 
tt 
EPS 
BETA 
TYRE 

jet  elements  h. 

XB 

BETA 

TYPE 

»•*  SECTION  5  »•* 
WING  ELEMENTS  » 


Y  *  0, 

l  •  5 
0.000000 
0.000000 
0.000000 
20 

I  a  4 
1.000000 
1.000000 
43 


1 7500  OCLTA  a  0.042500 
TWIST  a  0.000000 
0.100000  0.200000 


XLEAD  a 


0.000000 

0.000000 

10 

0  ■  O.i — 
1 . 100000 
0.000000 
10 


Y  a  0.407500  OCLTA  a 
a  4  TWIST  a  0.000000 


0.000000 
0.000000 
10 

9  DJ 
1.500000 
0.000000 

10 

0.137500 


,  0.000000  . 

HL  a  0.000000  THETA  5 
0.500000  0.900000 

0.000000 
0.000000 
10  - 
ACTf 


XTRAIL  a  0.444444 
“  0.000000 


CHORO  a  0.444444  TANLE  a 


0.000000 
0.000000 
10 

2.000000  ACTf  •  0.000000 
3.000000 
Q. 000000 
30 

XLEAD  a  0.000000  XTRAIL  • 


THETA  a  1.000000 


HL  a  0.000000 


THETA  S  ■ 


0.444444 

0.000000 


CHORO  a  0.444444  TANLE  • 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 


0.000000 
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XB  0.003000  0.100000  0.200000  0.500000  0.000000  0.900000 

CPS  0.000039  0.000000  0.000000  o.oocooo  0.000000  0.003000 

beta  o.cooooo  o.cooqoo  o.oooooc  o.cooooo  0.000000  0.000000 

TYPE  20  10  10  10  10  10 

«ET  ELEMENTS  NJ  *  4  D  *  C .880889  DJ  •  1.000000  ACTE  •  Q. 000000  THETA  a  1.000000 

XS  1.000000  1.100000  1.500000  s.ooooco 

beta  1.000033  0.000003  0.000300  0.000000 

TYPE  A3  10  10  SO 

<•*»  SECTION  4  *•«  V  «  0.275000  DELTA  *  0.275000  XLEAD  »  0.000000  XI RAIL  ■  0.444444  CHORD  «  0.444444  TANLE  «  0.000000 

WING  ELEMENTS  NW  a  5  TWIST  •  O.OOOOOC  HL  *  0.000000  TMgTA  S  a  0.000000 

XB  O.OOOCCO  0.1C00C0  O.2C0C0C  0.50000C  0.900000 

EPS  0.000000  0.000300  o.ooooco  0.000000  0.000000 

BETA  O.COOOOO  0.000000  O.OOCOOO  0.000000  o.oocooo 

type  20  10  10  10  10 

JET  ELEMENTS  NJ  »  4  D  *  0.888689  DJ  *  1.000000  ACTE  »  0.000000  THETA  «  1.000000 

XB  1.000000  1.100000  1.500000  5.000000 

BETA  1.000000  0 . 000000  0.000000  0.000000 

TYPE  45  10  20  30 


■  ELEMENT  GEOMETPV  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE  3  ■ 


«»  SECTION  I  «■*  V  a  0.975000  DELTA  «  0.025000  XLEAD  *  0.000000  XTRAJL  •  0.444444  CHORD  *  0.444444  TANLE  •  0.000000 

XING  ELEMENTS  NW  *  5  TWIST  «  0.000003  HL  *  0.000000  THETA  $  a  0.000000 

XB  0 . 000000  0.100000  0.200000  0.500000  0.900000 

EPS  0.000000  0.000000  O.OOOCCO  C. 000000  0.000000 

BETA  0.000000  0.000000  0.000000  O.COOOOO  0.000000 

TYPE  20  10  10  10  10 

JET  ELEMENTS  NJ  a  4  D  «  0.888889  DJ  a  0.000000  ACTE  •  0.000000  THETA  a  0.000000 

MB  1.000000  1.100000  1.500000  5.000000 

BETA  0.000000  0 . 000000  0.000000  0.000000 

TYPE  43  10  10  30 

«*«  SECTION  2  »»«  V  «  0 .687500  DELTA  a  0.042500  XLEAD  a  0.000000  XTRAIL  •  0.444444  CHORD  a  0.444444  TANLE  ■  0.000000 

WING  ELEMENTS  NU  «  5  TWIST  «  O.OOOOCO  HL  «  0.000000  THETA  5  a  0.000000 

XB  Q.00Q000  0.100000  0.200000  0.500000  0.900000 

EPS  O.OOCOOO  0.000000  O.OOOOCO  O.OOOCOO  0.000000 

beta  0.000000  0.000000  O.OOOOCO  O.OOOCOO  0.000000 

TYPE  20  10  10  10  10 

JET  ELEMENTS  NJ  a  4  D  >  0.888889  DJ  a  0.000000  ACTE  a  0.000000  THETA  a  0.000000 

XB  l.OCCOOO  1.100000  l.SOOOOO  s.cocooo 

SETA  o.oocooo  0.000000  O.OOCOOO  O.OOOCOO 

TVP£  43  10  10  30 

»««  SECTION  !  *«•  V  a  Q.4875C0  DELTA  *  G.13750C  XLEAD  a  0.000000  XTRAIL  •  0.444444  CHORD  a  0.444444  TANLE  •  0.000000 

WING  ELEMENTS  NW  a  6  TWIST  *  0.CCC000  HL  ■  0.000000  THETA  S  »  0.000000 

XS  0.000000  O.IOOOCO  0 -200000  0.5CCC0Q  0.800000  0.900000 

E?S  0.000030  C.000C00  O.COOOOO  O.OOOCCO  O.OOOCOO  1.000000 

BETA  0.030000  O.OOOCOO  0.CC3C0C  O.OOOCOO  0.030000  1.000000 

TVPE  20  10  10  10  10  42 

JET  ELEMENTS  NJ  a  6  D  •  0.888889  DJ  a  O.COOOOO  ACTE  •  0.000000  THETA  a  1.000000 

XB  1.000000  1.100000  l.SOOOOO  l.OCCOOO 

BETA  O.OOOCOO  0.000000  0. 000000  C.OCOOOO 

TYPE  43  1C  10  SC 

»»»  SECTION  4  aaa  V  a  0.275000  DELTA  a  0.275000  XlEAD  a  0.000000  XTRAIL  ■  0.444444  CHORD  a  0. 444444  TANLE  >  0.000000 

WINS  ELEMENTS  NW  *  5  TWIST  «  O.OOOOCO  H„  «  0.000000  THETA  S  a  0.000000 

XB  O.OOCOOO  0.100C30  0.200CQ0  0.500000  0.900900 

EPS  O.COOOOO  0.000300  O.OOOCOO  O.OOOCOO  O.OOOOCO 

BETA  0.000000  0. 000000  C.00C00C  O.OOCOOO  0.000000 

TYPE  20  10  10  10  10 

JET  CLEMENTS  NJ  a  4  D  »  0. 88888°  OJ  a  0.000000  ACTE  a  0.000000  theta  a  0.000000 

XB  1.030000  1.100300  1.500000  3-OCOOOO 

BE'A  O.COOOOO  0.000000  0-000030  O.OOCOOO 

TYPE  43  10  10  30 


a  SEC-IDNAu  jet  BLOWING  COEFFICIENTS  ■ 


ROW 

1 

3 

4 


»  element  geometry  data  and  fundamental  case  data  for  fundamental  case  4  » 

SECTION  I  aa.  Y  a  0.975003  DELTA  *  0.C2SQC0  XLEAD  a  0.000000  XTRAIL  •  0.444444  CHORD  •  0.444444  TANLE  •  0.000000 

WING  ELEMENTS  NW  a  5  TWIST  a  0.000003  HL  •  C. 000000  THETA  S  »  0.000000 

X*  0.000000  0.100000  0.200000  0.5CCCC0  0.900000 

EPS  -0.400GGG  ~0 . 200000  0.1BBto*  0. *00000  1.4C0000 

BETA  0.000000  C.OCOOOO  O.OOOCOO  O.COOOOO  O.OOCOOO 

type  20  10  10  10  10 

JET  ELEMENTS  NJ  a  4  D  «  C. 88888?  DJ  a  0.000000  ACTE  a  0.000000  THETA  a  l.SOOOOO 

XB  t.COOOOO  1.100000  1.500003  3.030000 

beta  O.OOOOOC  0.000000  O.OOOOCO  0.000000 

TYPE  43  10  1C  SO 

■  SECTION  2  **aa  V  a  0.887500  DELTA  a  0.0*2500  XLEAD  a  0.000000  XTRAIL  «  0.444444  CHORD  •  0.444446  TANLE  »  0.000000 

WING  ELEMENTS  NW  a  5  TWIST  a  O.OOOCOO  «  O.nOOOOO  THETA  S  a  0.000000 

XB  C.  000000  0.100000  0.2CCOOO  C. 503000  0.900000 

EPS  -0.4OCS00  -Q.20C000  C.l*«9*?  0.900000  1.400000 

BETA  O.OOCOOO  C. 000000  0.003003  O.COOOOO  O.OOCOOO 

TYPE  20  10  10  1C  10 

;£T  ELEMENTS  NJ  a  4  D  »  0.888889  DJ  a  3.C03000  ACTE  a  0.000000  THETA  a  1.500000 

XB  1.000000  i. 100000  1.500000  3.000300 

BETA  0.000000  9.000000  0.000009  0.000000 

type  43  10  10  30 

SECTION  3  V  *  0.807500  DELTA  a  0.237500  XLEAD  a  0.000000  XTRAIL  •  0.444444  CHORD  ■  0.444444  TANLE  ■  0.000000 

MING  ELEMENTS  NW  a  6  TWIST  a  0.000000  ML  >  0.000000  THETA  $  a  0.000000 

X0  0.000000  0.100000  0.200000  0.500000  0.000000  0.900000 

CPS  -0.400000  -0.200000  0.199*99  0.000000  1.199999  1.400000 

BETA  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000 

TYPE  20  10  10  10  1C  42 

JET  ELEMENTS  NJ  a  4  D  *  0.800009  DJ  a  0.000000  ACTE  a  0.000000  THETA  a  1 .500000 

XB  1.000000  1.100000  1.500000  3.000000 

beta  0.000000  0.000000  0.000000  0.000000 

TVPE  45  10  10  30 

•"»  SECTION  4  V  a  0.275000  DELTA  a  0.275000  XLEAD  a  0.000000  XTRAIL  •  0.444444  CHORD  a  0.444444  TANLE  «  0.000000 

WING  ELEMENTS  NW  a  §  TWIST  a  0.000000  ML  a  0.000000  THETA  S  a  0.000000 

XB  0.000000  0.100000  0.200000  0.500300  0.900000 

CPS  -0.400000  -0.200000  0.199999  0.900000  1.4C0000 

beta  0.000000  0.000000  0.000000  o.ocoooo  0.000000 

TYPE  20  10  10  10  10 

JET  ELEMENTS  NJ  *  4  D  «  0.080009  DJ  a  O.COOOOO  ACTE  a  0.000000  THETA  ■  1.500000 

XB  1 .000900  1.100000  1.500000  3.000000 

beta  0.000000  0.000000  0.000000  0.000000 

TVPE  43  10  10  30 


*  CHORDW1SE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  " 


SECTION  1  Y  a  0.975090  CHORD  «  0.444444 


97 


I 

X* 

CASE  1 

CASE  2 

CASE  2 

CASE  4 

CASE  » 

CASE  6 

CASE  7 

CASE  * 

CASE  9 

CASE  10 

1 

0.000000 

0.129570 

0.015231 

0.C06761 

0.02*9*2 

0.000003 

0.000000 

0.000000 

0.000000 

0.000000 

o.ccceoo 

2 

C.1C3030 

0.062479 

0.00*627 

0.00*529 

0.061*60 

0.000000 

0.000000 

0.003000 

0.009009 

o.ocoooc 

o.ococcc 

2 

0.2CCCCC 

C. 036112 

0.007270 

0 .033624 

0.042241 

0.003900 

0.009000 

0.000900 

O.OOOOCO 

o.ooooco 

c.ococcc 

6 

0.SC33C0 

0.CU367 

0.CC67S3 

0 .006280 

0.064060 

0.000000 

0.030000 

0. 000000 

o.coocoo 

c.occooo 

O.DDCGCO 

S 

0.900000 

0.007676 

8.016049 

0.005106 

0.02377* 

0.000000 

0.000009 

0.000000 

0.000000 

0.000000 

O-OCwOCC 

22 

1.000000 

C. 005187 

3.059976 

0.002649 

0.019742 

0.000000 

0.000000 

0.000000 

0.000000 

0.090000 

0 . 00C003 

22 

:. iooooo 

C. 02330* 

0.039183 

0.002402 

0.008359 

0.003000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ococcc 

24 

1.500000 

0 . 00 1203 

0.002247 

0.000598 

0.CC2077 

o.ocoooo 

0.000000 

o.ooooco 

o.ooooco 

o.ocaooo 

0.000030 

25 

2.000000 

0.0002C2 

0.003111 

0 . 0C0C26 

C.00C2ol 

0.000000 

0.000009 

0.000000 

0.000000 

0.000000 

0.000000 

DETAILED  LEADING  EDGE  LOADING 

1 

0.020000 

0.188272 

0.022600 

0. 01  CCS 2 

0.047722 

2 

0.04CCC0 

0. 127C28 

0.015866 

0 . 007 1 25 

0.039565 

5 

0.060000 

0*097175 

0.012793 

0.0C5832 

0.02*460 

4 

0.0*0000 

0.077455 

0.010931 

0.005056 

0.059619 

S 

0.10Q000 

0.062679 

0.009627 

0.004529 

0.041*60 

•  chordwise  load; 

MG  FOR  ALL  FUNDAMENTAL  CASES  ■ 

SECTION 

2  v  • 

0.8*7500 

CHORD  • 

0.464464 

I 

XB 

CASE  1 

CASS  2 

CASE  S 

CASE  4 

CASS  5 

CASE  4 

CASE  7 

CASE  * 

CASE  9 

CASE  10 

SECTION 

1 


0.000000 
O.IOCOOO 
0.200033 
0. 500000 
0 .900000 

1.000000 

1.100000 

1.500000 

5.0000C0 

0.020000 

0.060000 

C.06000C 

o.ooooco 

O.IOCOOO 


0 . 185800 
0.107623 
0.066700 
0.02*226 
0 .012979 

0.000*77 
0.005660 
0.001076 
0 . 000287 

0.2726*7 

0.1*9277 

0.1SCCS1 

0.125260 

0.107632 


0.0261*2 

0.0170*6 

0.012026 

0.012062 

0.027562 

0.071212 

0.015626 

0.001990 

0.00C15S 

0.026262 

0.025879 

0.0212*6 

0.018802 

0.017096 


0.010750 

0.00*019 

0.006499 

0.00799* 

0.011612 


8.056726 
.*68596 
0.067*74 
0.070155 
0.051706 

0.020*26 

0.0161U 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0. 00*016  0.050*26  0.000000 

0.006*77  0.0161U  0.000000 

0.000959  0.002272  0.000000 

0.039022  0.000269  0.000000 

DETAILED  leading  EDGE  LOADING 
0.0161*6  0.090720 

0.011672  0.072112 

0 . 0C9766  0.067293 

0.008696  0.066906 

0.008019  0.0*85*6 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

O.OOOOOu 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


»  OCR  DM  1 5E  LOADING  FOR  ALL  FUNDAMENTAL  CASES  * 


•  CHORD* ICE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  * 


DETAILED  LEADING  edge  loading 
0 . 020330  0.287135  0.066586  0.017101  0.188460 

0 • 060230  0.27C664  0.047716  0.012172  0.162592 

0.06QCC3  0.217733  O.Q3«o29  0.010022  0.126296 

0.C80330  0.185226  0.025006  0.006767  0.1196*2 

r  330  0.1622*1  0.0220C6  0.007930  0.117163 


•  SPANMJSS  LOADING  FOR  FUNDAMENTAL  CASE  1  * 


CLC 

0 .0262*6 


.  LIFT  ... 

CL**L' 

0.017652 


CL 

0.051727 


SECTION 

1 


0.987500  0.0561*6  0.017653  0.073629  ■ 

0.6*7500  0.076016  0.0176S5  0.092667  « 

0.275000  0.0*9566  0.017652  0.107019  « 

”*TOTAL  oT 07*902  0*017655  ~o7o96256  • 

.  PITCHING  MOMENT 


CCG 

0 . 00059*4 

0.0009806 

0.0012267 

0.0015622 


.  INDUCED  DRAG 

CDMU  CS  CD 

0.0001522  0.0002920  0.0006577 

0.0001522  0.0006025  0.0005306 

0.0001522  0.0009296  0.0005696 

0.0001522  0.0011916  0.0005229 

*0*0001522  *0.0010010  *0.00052*5 
...  LIFT  CENTER  ... 


0.000000 

0.000000 

0-000333 

0.000030 

0.000030 

0.000000 

0.000000 

0.003000 

0.000000 


SECTION 

5  v  . 

0.687500 

CHORD  ■ 

0.446446 

I 

X* 

CASE  1 

CASE  2 

case  : 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  * 

CASE  9 

CASE  10 

11 

0.000000 

0.230760 

0.034686 

0.01644* 

0.091*2* 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

12 

C.130C3Q 

0.1438*7 

0.025132 

0.011127 

0.095908 

0.000000 

0.000000 

0.000000 

0.000000 

0.030000 

0.000000 

13 

Q.ZOCQCO 

0.089584 

0.02*422 

0.00*287 

0.C90417 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

16 

0 . 530000 

0.0460*8 

0.018778 

0.012471 

0.08*255 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

C. 000000 

15 

0 .800  309 

0.025167 

0.027821 

0.032286 

0.072930 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

16 

0 • 900000 

C. 020025 

0.025625 

0.085626 

0. 062226 

0.000000 

0.000000 

0.000000 

0.000000 

0.000030 

0.000000 

30 

1 *800090 

0.013614 

0.0762*1 

0.026292 

0.059216 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

31 

1*200003 

0.00823* 

0.019171 

0.011354 

0.01*28* 

0.000000 

0.000000 

O.OOOOCO 

o.ooooco 

o.oocooc 

o.ooooco 

22 

1 .500000 

0 .002676 

0.002*23 

0.0C1175 

0.004705 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

o.ocoooo 

23 

3.0309C0 

0.00024* 

0.000179 

0.000340 

0.000642 

0.000000 

0.000000 

0.000000 

0.000000 

0.000090 

0.090000 

DETAILED  LEADING  EDGE  LOADING 

1 

0.020000 

0.241408 

0.052102 

0.02U  6 

0.142840 

2 

0.C4C000 

0.2I8C»5 

0.037255 

0.C1S.27 

0.11067* 

3 

C.C60CC0 

0.190*41 

0.021040 

0.012222 

0.0*9851 

6 

o.oeooco 

0.161646 

0.027426 

0.011965 

0.0*61*8 

5 

0.130030 

0.1408*7 

0.0251C2 

0.011127 

0.095*08 

I 

X* 

CASE  2 

SECTION 
CASE  2 

4  y  • 

CASE  2 

CHORD  « 
CASE  5 

b.444464 
CASE  6 

CASE  7 

CASE  * 

CASE  • 

CASE  10 

17 

o.cooooo 

0.2612*7 

0.044229 

0.011420 

imm 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

28 

0.100090 

0.262281 

0.032006 

0.007*20 

0.000000 

0.000000 

0.000000 

0.000000 

t. 000000 

0.000000 

1* 

0.20CC33 

0.105238 

0.02665* 

C.00S8C8 

0.106212 

0.000000 

0. 000900 

0.000000 

0.009000 

0.000300 

0.000030 

23 

0.500000 

0.054222 

0.022370 

0.CQ6252 

0.101691 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

22 

0.900000 

0.025306 

0.036868 

0.002915 

0.071827 

0.000000 

0.000000 

0.000000 

0.000000 

0.030000 

0.000000 

34 

1 .000030 

0.017242 

0.0782*1 

0.002094 

0.044615 

0.000000 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

35 

1.1CGCC0 

0.010686 

0.020564 

0.091460 

0.022860 

0.000000 

0.000000 

0.000000 

0.000000 

o.cooooo 

o.ocoooo 

36 

1.500CC0 

O.CC35:4 

0.00257* 

0.090646 

0.005*90 

0.000000 

0.000000 

0.009000 

0.000000 

o.ocoooo 

0.000000 

37 

2.000000 

0 .000603 

0.000220 

0 . 000081 

0.000522 

0.000000 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

CHU 

1.0000000 

1.0000009 

1.0000000 

1.0000000 


0.0082269  0.0659782 
0.0126616  0.0219*81 
0.01*2760  0.0120726 
0.0216792  0.0065520 


0.975000  -0.0C7660  -0.017652  0.017652  -0.007660  •  • 
0.887509  -0.012620  -0.0176*5  0.017655  -0.015620  »  « 
0.6*7500  -0.019652  -0.017652  0.017652  -0.019652  •  « 
0.275000  -0.022831  -0.017653  0.017652  -0.022*51  *  ■ 

TOTAL  -0.020516  -0.017652  0.017652  -0.020516  (APEX) 
-0.000790  -0.012090  0.012090  -0.000790  (XMC) 


XCP/C 

0.222826 

0.22*857 


XCL/C 

0.6*5007 

0.619254 


0.255912  0.596*57 

0.266070  0.285762 


0.260017  0.296052  tK/CREFJ 

0.115562  0.175125  CK/8/2) 


SPANNISE  LOADING  FOR  FUNDAMENTAL  CASE 


.  LIFT  ... 

SECTION  V  CLO  CLMU 

1  0.975000  0.012256  0.017652 

2  0.0*7500  0.021552  0.017652 

2  0.687500  0.02*665  0.017652 

6  0.275000  0.025527  0.017652 


CL 

0.020710 

0.028*04 

0.045*99 

0.0509*0 


.  INDUCED  WAG 

CDG  CDMU  CS  CD  CNU 

0.0000000  0.0001525  0.0000060  0.00014*2  1.0000000 

0.0000000  8.0002121  8.0000102  8.0881421  1.8880888 

0.0000000  0.0001522  0.0000210  8.0001212  1.0000000 

0.0000000  0.0001522  0.0000242  8.0001180  1.0000000 

0.0000000  0.0001522  0.0000241  0.0001242  0.9999999 

.  ...  LIFT  CENTER  ... 

CM  •  •  XCP/C  XCL/C 


SECTION 

1 


0.029594  0.017452  0.047047  • 

.  PITCHING  MOMENT 

CMC  CMMU  CMT 


GAMMA  ALF1N 

0.0044428  0.0255782 

8.8069194  0.012294S 

0.00*9414  0.0057630 

0.0105522  0.0022041 


0.975000  -0.037*54  -0.017452  0.000000  -0.02528*  •  •  0.590992  0.822444 


98 


0.5658:7  0.781099 
0-555000  0.710560 
0.50*065  0. *771:5 


2  0.087500  -0.012082  -0.017455  0.000000  -C. 029555  •  • 

5  0.687503  -0. 0151ft 1  -0.017452  0.000000  -0.052615  •  • 

4  0.275CC0  -C. 017067  -0.017455  C.0CQ3Q0  -0.024520  •  “ 

TOTAL  ~  -0 . 015455  -0.017455  0.000000  -oTo32*U  CAPEX)  ”0^522332  ~oTi«9S5 4  IX/CRfF) 

-0.QC8359  -0.012090  0.00CC3C  -0.02114?  (XMC)  C. 222148  0.510904  (X/8/21 

■  SPANMISC  LOADING  FOR  FUNDAMENTAL  CASE  5  « 


.  L1F 

T  .  . . 

SECTION 

Y 

CLG 

CLMJ 

CL 

■ 

CDG 

CDMU 

CS  CD 

CMU 

GAMMA 

l 

0.975000 

O.OC4811 

o.cc 

0000 

0.004811  * 

o.ocoocoo 

0.0030000 

0.0000008  -0.0000008 

l.OOCOOOO 

0.0013849 

2 

0.887500 

0.009220 

0. cococo 

0.00 

9230  " 

0.0000000 

o.ooocooo 

0.0000020  -0.0000020 

1.0000000 

0.0026327 

3 

0.687SCO 

0.026510 

0.01 

;ts  r 

0 . C4 1 964  - 

0 .0000*7  7 

0.0001523 

0 . 090C056  0.0002663 

l.OOCOOOO 

0 . 0C©6622 

4 

0 .275000 

0.0C5419 

0.Q0C00Q 

0.0? 

5419  • 

0 .0009000 

0.0000000 

0.0000025  -0.0000023 

1.0000000 

0.0016931 

TOTAL 

0.011115 

0.004800 

0.015915  ” 

0.0000269 

0.0000419 

0.0000025  0.0000662 

0.9999999 

.  PITCHING 

MOMENT  .. 

, . .  LIFT  CENTER  . . . 

SECTION  V 

CMG 

CMMU 

CMT 

CM 

■  * 

XCP/C  XCL/C 

1 

0.975000  -0.002250 

0.000000 

O.OOOCOO 

-0.002250 

m  • 

0467717  0.467717 

0.88 

7500  -0.004613 

0.000000 

o.oooec; 

-0.004615 

■  ■ 

0.499847  0.499847 

3 

0.687500  -0.016226 

-0.017453 

0.001745 

-0.051944 

»  « 

0.662424  0.802827 

4 

0.275000  -0.001892 

o.ooocoo 

C.CCD000 

-0.001892 

•  « 

0.549165  0.349165 

TOTAL  -0.00619.. 

-0.004800 

0.000480 

-0.010515 

(APEX) 

0.557334  0.690835  CX/CREF) 

-0.00 

541* 

-0.00 

SbOO 

0.000480 

-0.006556 

(XMC) 

0.247704  0.307038  (X/8/2) 

*  SPANWISE  LOADING  FOP  FUNDAMENTAL  CASE  4  ■ 


ALFIN 

0.0050657 

0.0014960 

0.0108774 

0.0095407 


0.0000785 


.  LIFT  . . 

SECTION 

Y 

CLG 

CLMU 

CL 

« 

CDG 

CDMU 

CS 

CD 

CMU 

GAMMA 

ALFIN 

1 

0.975000 

0.060381 

o.c:®i8o 

0.066561 

ft 

0.0003055 

0.0003427 

0.0000147 

0.0006335 

1.0000000 

0.0102552 

0.0556085 

2 

0.887500 

0.065222 

0.026180 

0.091302 

ft 

0.0004685 

0.0003427 

0.0000562 

0.0007550 

1.0000000 

0.0165145 

0.0278858 

3 

0.687500 

0.C86605 

0.G2618C 

C.ll 

2785 

ft 

0.0005725 

0.0003427 

0. 0001472 

0.0007678 

1.0000000 

0.0220219 

0.0145258 

4 

0.275000 

0.100914 

0.C26189 

0.12 

7094 

ft 

0.0006515 

0.0005427 

0.0002580 

0. 0007162 

1.0000000 

0.0257749 

0.0069873 

total 

0.089478 

0.026180 

0.115658 

ft 

0 . C005785 

0.0003427 

0.0001901 

0. 0007311 

0.9999999 

0.0007208 

MOMENT  . 

. .  LIFT  CENTER  . . . 

SECTION  V 

CMG 

CMMU 

CMT 

CM 

«  « 

XCP/C 

XCL/C 

1 

0.97 

SOCO  -0.028667  -0.02 

•  180 

0-000000 

-0.044847 

•  <i 

0.4622eo 

3.673778 

2 

0.88 

7500  -o.c: 

*355  -o.c: 

6  280 

0.000000 

-0.055534 

h  « 

0 .450760 

D. 608249 

3 

0.687500  -0.03 

7713  -o.c: 

6180 

0.000000 

-0-C63893 

«  R 

0.435465 

0.566507 

4 

0.275000  -0.34 

2616  -0.02 

6  280 

o.ooocoo 

-0.068796 

H  ■ 

0.422296 

0.541296 

TOTAL  -0.03 

3612  -C.02 

o  180 

o.oocooo 

-0.066592 

(APEX) 

0.429293 

0.558475  (X/CREF) 

-0.91*343  -0.019635 

0.000000 

-0.035678 

(XMC) 

0.190797 

0.248211  (X/B/2) 

LIFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING  ABOUT  XCG-  CLO  «  0.089478 

PITCHING  MOMENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN  DUE  TO  PITCHING  ABOUT  XCG-  CHQ  ■  -0.058412 
PITCHING  MOMENT  COEFF  DERIVATIVE  ABOUT  XMC  DUE  TO  PITCHING  ABOUT  XCG.  CMCKC  «  -0-016045 

•  TCTAL  AERODYNAMIC  COEFFICIENTS  * 


CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

CCLG 

0.0789025 

0.0295941 

0.0111151 

0.C896784 

0.0030000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCLJ 

0.0174533 

0.0174533 

0.0047*96 

0.  C261799 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

'  CC_ 

0.0963558 

0.0470474 

0.0159148 

0. 1156583 

0.0000000 

0.0000000 

0.0000000 

o.ooocooo 

o.oooocoo 

o.occoooo 

CCDG 

0.CC13771 

0.0330030 

O.OCOC269 

0 . 0C05785 

0.0000000 

o.oooocoo 

0.0000000 

0.0000000 

0.0090000 

o.occocco 

CCDJ 

0.0001523 

0 .  OCC 1525 

0.0000419 

0 . 0CC3427 

0.0030000 

O.OOOOOCO 

0.0000000 

o.ooocooo 

0.0000000 

0.0000300 

CCS 

O.COIOGIO 

0.0000261 

0 .0000025 

0.000i«01 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOOCO 

o.ocooccc 

CCD 

0 .  CCC5285 

0.0001262 

0 . 0CQC662 

0 . C00731 1 

0.0000000 

O.OOOOOCO 

0.0000000 

0.0000900 

O.OOCOOOO 

o.occoooo 

'  CCITZ 

0.0305049 

0. 0001  167 

0.0000735 

C.0CC72C8 

0.0000330 

0.0003000 

o.occoooo 

0.0003000 

O.OOOCOOO 

o.cocccro 

•  CCJ 

qqoqCSOQ 

0 . •  «  ac  a  aft 

o  .  ft  ft  ft  ft  a  ®  ft 

Qoooftaoa 

O.OOOOCOO 

0.0000000 

0.0000000 

0.0000090 

o.oooocoo 

o.ocooccc 

CC-5 

-0.025.5160 

-0.0156580 

-0.0061*49 

-0.0284124 

O.OOOCOOO 

O.OOOCOOO 

0.0000000 

o.oooocoo 

O.OOOOOCO 

o.coooooo 

CCMJ 

-0.0174533 

-0.0176533 

-0.00479*6 

-0.02617*9 

C.OGOOOOO 

0.0000009 

0.000 0000 

o.ooocooo 

0.0000330 

o.coooooo 

CCM7 

0.0176533 

o.oooocoo 

0-C004800 

O.OOOOCOO 

O.OOOOOCO 

0.0000000 

0.0000000 

0 .0000000 

O.OOCOOOO 

0 . occooco 

CCM 

-C. 0205160 

-0.032*113 

-0.0105145 

-0.0645*23 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOCOO 

O.OOCOOOO 

CXCP 

0.2600171 

0.5223324 

0.5573245 

0.4292*28 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOCOO 

o.ocoocoo 

CXCL 

0.3*60530 

0.69**336 

0 . 690ei54 

0.5534753 

O.OOOOCOO 

O.OOOOOCO 

O.OOOOCOO 

o.oooocoo 

0.0000030 

0.0000000 

CXCP  3 

0. 1155931 

0.2321477 

0.2477041 

0.1*07967 

0.0000003 

0.0000000 

O.OOOOOCO 

0.0000000 

0.0000000 

o.coooooo 

CXCwB 

0.1751346 

0 . 3 IC9038 

0 . 3070379 

0.2482112 

o.ooocooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000030 

CCMG-'C 

-0.00079C4 

-0- CC80594 

-0.CC34161 

-0.01*0428 

0.0000000 

o.oooocoo 

0.0000000 

0.0000000 

O.OOOCOOO 

0.0000000 

CCMJMC 

-0.0130*00 

-0.0130*00 

-0.0035**7 

-0.019*350 

o.ooocooo 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

o.oooocoo 

CCM7"C 

0.0130*00 

O.OOOOCOO 

0 . OC  048  00 

O.OOOOCOO 

0.0000000 

O.OOOOOCO 

0.0000000 

0.0000000 

o.oooocoo 

o.oooocco 

*  CCY-C. 

-0.0337*06 

-C.021 14*4 

-0 . 00*5258 

-0.035*778 

0.C000QCC 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CL-G 

0 . 020CCC0 

0  •  ooccoco 

O.OOOOOCO 

O.OOOOOCO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0003000 

0.0000000 

CLLJ 

c.oocooco 

0.0000000 

0.0050000 

0.0000000 

o.ooocooo 

0.0003000 

0.0000000 

0.0000000 

0.0000000 

0.0900000 

CLL 

O.COCCCOO 

0.CC0C330 

0.CCC000C 

0.0003000 

O.OOOOOCO 

0.0300000 

0.0000000 

0.0300000 

0.0000000 

O.OOCOOOO 

CNJ 

o.occocco 

c.ccccooo 

O.OOOOOCO 

0.0000000 

0.0003000 

o.occoooo 

0.0000000 

0.0000000 

0.0000000 

O.OOOOOCO 

CNIVC 

o.osoocoo 

o.ocoocoo 

o.cccooco 

o.ooocooo 

0.0000300 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

CCY 

c.oococoo 

o.oooocoo 

0.0000000 

0.0000000 

0.0000000 

o.ooocooo 

0.0009030 

0.0000000 

0.0000000 

O.OOCOOOO 

CPGR 

0.0359227 

0.0134640 

0 .  OCo  7121 

0.04C8200 

0 .0000000 

o.ocoocoo 

0.0000000 

o.oooocoo 

O.OOCOOOO 

o.ooccoco 

CBGl 

0.035*227 

0.0136640 

0.0067121 

0.0408300 

O.OOOOOCO 

O.OOOOOCO 

o.ooocooo 

0.0000000 

O.OOOOCOO 

O.OOOOOCO 

C5JR 

0.0C8’266 

0.0087266 

0.0022**8 

0.0130*00 

0.0000039 

O.OOOOOCO 

0.0000000 

0.0000000 

O.OOCOOOO 

o.ocoocoo 

cs  Ul¬ 

0.0057266 

0.0087266 

0 . 0C32*?8 

0.0130*00 

o.ooocooo 

o.coooooo 

0.0000000 

o.oooocoo 

o.coooooo 

0 . 0900000’ 

cer 

0.04656*4 

0. 022190ft 

G. 01301 19 

0.0539200 

O.OOOOOCO 

O.OOOOOCO 

0.0900000 

0.3000000 

0.0900000 

0.630CCOO 

csl 

0.06656*6 

0.0221*06 

C.C10C119 

0 .  C5392C0 

0.0000000 

o.oooocoo 

0.0000000 

0.0000000 

0 . 000CC39 

O.OOCOOOO 

CPM5R 

0 . 4 622422 

0.4716644 

C. 6290910 

0.4*62009 

0.0000000 

O.OOOOOCO 

0.0300000 

o.ooocooo 

O.OOOOOCO 

0.0000300 

CPMBu 

0.4622422 

0 .47 le644 

0.6290*10 

0 .4662 CO 9 

o.ocoocoo 

0.0090000 

O.OOOOOCO 

0.0000000 

0.0000000 

0.0000090 

•  ChCRDWISE  LOADING  FOR  COMPOSITE  CASE  1  * 


FUNDAMENTAL  CASE  FACTORS 

AC  1 )  A(2 )  ACS)  AC4)  ACS)  AC6)  A(7>  AC8 ) 

0.000000  10.000000  10.000000  0.000000  0.000000  0.000000  0.000000  0.000000 
NOTE  EACH  LEADING  EDGE  CP  VALUE  IS  THE  AVERAGE  VALUE  OF  THE  SINGULAR  DISTRIBUTION 
DO  NOT  PLOT  THESE  LOAOING  foints  directly 


AC9) 

0.000000 


MING 

XB 

CPC  AsO  ) 
CP  C  As  1  ) 
JET 

XB 

CP(A»0) 
CP  ( As  ]  > 

MING 

XB 

CP (AsO) 

CP  (As  1  ) 
JET 

XB 

CP CA»0) 
CP  (  A*  1  ) 

WING 


0.000000 

0.219927 

0.129570 

1.000000 

0.426244 

0.005187 


0.000000 

0.249222 

0.185800 

1.000000 

0.792271 

0.008877 


0.100000 

0.141560 

0.062479 

1.100000 

0.115851 

0.005501 


0.100000 

0.251151 

0.107455 

1.100000 

0.205030 

0.005498 


0.100000 


SECTION  1 

0 .200000 
0.1C8940 
0.056115 

1.500000 
0.016450 
0.001205 
SECTION  2 

0.200000 

0.195544 

0.064708 

1.500000 
0.029491 
0.001876 
SECTION  5 

0. 200000 


Y  «  0.975000 


CHORD  «  0.444444 


0.500000  0.900000 

0.110104  0.211551 

0.016567  0.007476 

5.000000 
0.001371 
0.000202 
Y  «  0.887500 


CHORD  •  0.444444 


0.500000 

0.200600 

0.029226 


0.900000 

0.387550 

0.012979 


3.000000 
0.001867 
0.000287 
Y  s  0.687500 


CHORD  »  0.444444 


0.500000 


0.000000 


0.900000 


At  10  ) 

0.000000 


CKA«C> 

0.491355 

0.362287 

0. 

28  70°  7 

0.312489 

0.602165 

1.212604 

CP(A*1 ) 
JET 

KB 

0.250760 

0.140897 

0. 

C89584 

0.044098 

0.025147 

0.02002S 

1 .000309 

1.100000 

1. 

50CC00 

3 . 000000 

CP(A*0) 

1.026741 

0.3CS2S1 

c. 

C40979 

0.0021*2 

cpca*: ) 

0.013414 

0.038238 

0. 

C32674 

0.000348 

WING 

KB 

SECTION  4 

Y  *  0.275000  CHORD  *  0.444444 

o.eoooco 

0.100000 

c. 

200000 

0 .500000 

0.900000 

CP(A«0 ) 

0  .55*643 

0.3«*36C 

0. 

304to9 

0.266232 

0.397806 

CP(A«2 ) 
JET 

KB 

0.261297 

0.162281 

c. 

105208 

0.054222 

0.025306 

1.000000 

1.100000 

1. 

500000 

3.000000 

CPC A«0) 

0.805748 

0 . 22C055 

0. 

342223 

0 . 003008 

CPiA-lJ 

0.017243 

0.  Cl 068 6 

0. 

003524 

0.00C4C3 

«  COMPOSITE  CASE  1 

« 

FUNDAMENTAL  CASE  FACTORS 

All)  A 

2) 

A  ( 3 ) 

A(4J 

A(5) 

Al  6 ) 

AC7 ) 

A<8)  AC9) 

A(!C) 

0.000000  10.000000  10. 

000000 

0.000000  0.000000  0.000000 

0.000000 

0.000000  0.000000 

0.000000 

SECTION 

*  * 

.  PITCHING 

MOMENT  . 

■  ■ 

...  LIFT  CENTER  ... 

V  CLGO  CLHUO 

CLO 

*  ■ 

CMGO 

CMMUO 

CMTO  CMO 

*  * 

XCPO/C 

XCLO/C 

CLGA  CLM'JA 

CLA 

m  m 

CMGA 

CMMUA 

CMTA  CMA 

*  * 

XCPA/C 

XCLA/C 

1 

0.975000  0.180673  0. 

17453! 

0.3552 

56  *  * 

-0.100846 

-0.174533 

0.000000  -0.275379 

■  • 

0.558167 

0.775265 

0.034284  0. 

01745! 

0.0517 

I?  ft  ■ 

-0.007640 

-0.017453 

0.017453  -0.007640 

■  * 

0.222834 

0.485007 

2 

0.887500  0.305825  0. 

1  7453! 

0.460358  *  * 

-0.166954 

-0.17453$ 

0.000000  -0.541487 

*  « 

0.545914 

0. 71 0902 

0.056186  0. 

017452 

0.0736 

l  <5  •  M 

-0.013420 

-0.017453 

0.017453  -0.013420 

«  * 

0.238857 

0.419256 

5 

0.687500  0.52 

9559  0. 

J4®066 

0.8786 

25  •  ■ 

-0.213977 

-0.349066 

0.017453  -0.645590 

«  ii 

0 .592904 

0.754638 

0.076C14  0. 

D 1745J 

0.093467  •«  • 

-0.019453 

-0.017453 

0.017453  -0.019453 

■  « 

0.255912 

0.S948S? 

4 

0.275000  0.389459  0. 

174533 

0.563992  »  « 

-0.189587 

-0.174533 

0.000000  -0.364120 

■  « 

0 .486797 

0.645612 

0 . 0895*6  0. 

017453 

0.107019  •  • 

-0.023831 

-0.017453 

0.017453  -0.023831 

■  « 

0.266070 

0.385763 

TOTAL  0.407093  0. 

222529 

0.6296 

22  "  ■ 

-0.216528 

-0.222529 

0.004800  -0.434258 

(APEX) 

0.531889 

0.697535 

0.078903  0. 

51745! 

0.096356  «  « 

-0.020516 

-0.017453 

0.017453  -0.020516 

(APEX) 

0.260027 

0.594053 

ft  * 

-0.114755 

-0.166897 

0.004800  -0.276852 

( KMC ) 

0.236395 

0.309927 

M  ft 

-0.000790 

-0.013090 

0.013090  -0.000790 

(XMC) 

0.115563 

0.175135 

SECTION  V 

CDGO 

COMUO 

cso 

CDO 

GAMMAO 

ALF1N0  CTO 

CMU 

C2GX 

CCNL’K 

csx 

CDX 

CDGA2 

CDmUA2 

C5A2 

CDA2 

GAMMA? 

alfina 

1 

0.975000 

O.OCCOOOO  0. 

01523C9 

O.C008442 

0.0143867 

0.0582766 

0.3064195  0.985613! 

1.9000000 

0.05315 

33  0. 

00iC4«,2 

0.0009947 

0.0CS2048 

0.0005994  0. 

0001523 

0.0002930 

0.0004577 

0.0092369 

0.0450782 

2 

0.887500 

o.coccr 

00  0. 

014230® 

0.0021297 

O.OlSlCil 

0.0955214 

0.1378922  0 . 9868981 

l.OOOOCOO 

o.ocs: 

77  0. 

0C30462 

0.0022656 

0.0061182 

0.003°: 

•6  0. 

0C0 1523 

0.0006025 

0.0005304 

0.0134614 

0.0219981 

5 

0.687500 

0.CI954 

_0  0. 

0609235 

0.CC421S4 

0.0762519 

0. 1560372 

0.1664044  0.9237481 

1.0000000 

0 . 00aSI 

43  0. 

0060923 

0.0039577 

0.0116690 

0.00132 

67  0. 

0001523 

0.0009294 

0.0005496 

0.0182760 

0.0120724 

4 

C. 275000 

O.OOOCOCO  0. 

0152309 

0.0054284 

0 . 0098025 

0.1184530 

0.1174480  0.9901975 

1.0000000 

0.0067973  0. 

0030462 

0.0050867 

0.0047568 

0.0015632  0. 

0001523 

0 . 001 1916 

0.0005239 

0.0216792 

0.0065520 

total  3.0053740  0.0277 *63  0.0044527  0.0287176  0.0451802  0.9712823  0.9999999 

0.0071854  C.CC2883*  0.0042180  0.0068502  0.0101437 

0.0015771  0.0001525  0.0010010  0.0005285  0.0005049 


■  total  AERODYNAMIC  COEFFICIENTS  « 


ALPMA-O 

ALPHA 

ALPHA" *2 

CCIG 

0 .4070*3 

0.078903 

CC«-J 

0.222529 

0 . 01 745 J 

CCL 

0.629622 

0.096356 

CCDG 

0 . 0053740 

0 . 0071854 

0.0013771 

CCCJ 

0 . 02779»3 

0.0038839 

0.00CI523 
0. 00.0010 

CCS 

0.CC44527 

0.0042190 

CCD 

0.0287176 

0 . 00e85C2 

0.0005285 

CD  HZ 

0.C4518C2 

0.0101437 

0.0005949 

CCJ 

C  .  0  o  OOOftft 

CCMG 

-0.226528 

-0.020516 

CCMJ 

-0.222529 

-0.01745$ 

CCMT 

0.004800 

0.01745$ 

CCM 

-0.434258 

-0.020516 

cxcp 

0.531839 

0.260017 

CXCL 

0.697335 

0.394053 

CXCPB 

0.236395 

0.115563 

CXCLB 

0.309*27 

0.175135 

CCM3MC 

-0.214755 

-0.0007*0 

CCMJMC 

-0.1668*7 

-0.0130*0 

CCM7MC 

o.oo4$:o 

0.0130*0 

CCMMC 

-0.276852 

-0.000790 

CLLG 

o.oococo 

o.oocooo 

CLLJ 

o.ooocoo 

0.000000 

CLL 

o.coccoo 

0.000000 

CNJ 

o.cooo:o 

CNJMC 

O.OOOCOO 

o.ooocoo 

0.000000 

CCV 

O.COCCOO 

0 .  ocoooc 

0.000000 

CBGR 

0.201760 

0.055323 

CEGL 

C. 201760 

0.035823 

CBJR 

0.120264 

0.008727 

C8JL 

0.120264 

0 . 008727 

CBR 

0.522024 

0.044549 

cbl 

0.322024 

0.044549 

CPMBR 

0.512457 

0.462542 

CPMBL 

0.511457 

0.462342 

*  TABULATED  TOTAL  COEFFICIENTS  FOR  COHFOSITE  CASE  1  • 


ALPHA 

CCL*"2  CCM(MC) 

Cll 

CD  IT? 

CCT 

CNI 

CN 

CCV 

10.000000  • 

-0.333*359 

-0.257580} 

0. 1115131  -0.260*685 

0.0000000 

ft 

-0.0057428 

.0057421 

a 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

-9.000000  • 

0.0564443  -0.2497589 

0.0000000 

ft 

-0.0052130 

.0052128 

a 

0.0000000 

0.0000000 

-8.000000  • 

-0.U1224S 

0.019*443  -0.2705293 

0.0000000 

ft 

-0.0034553 

.0036526 

a 

0.0000000 

0.0000000 

0.0000000 

-7.000000  ■ 

-0.0448685 

0.0020132  -0.271319V 

0.0000000 

ft 

-0.0010837 

.0010854 

a 

0.0000000 

0.0000000 

0.0000000 

-6.000000  • 

0.05148  75 

0.0026509  -0.2721100 

0.0000000 

* 

0.0024958 

.9975042 

a 

0.0000000 

0.0000000 

0.0000000 

-5.000000  • 

0.1478431 

0.0218574  -0.2729004 

0.0000000 

ft 

0.0070851 

.99291*8 

a 

0.0000000 

0.0000000 

0.0000000 

-4.000000  ■ 

0.2441989 

0.0594331  -0.2736908 

0.0000000 

• 

0.0124844 

.9873155 

a 

0.0000000 

0.0000000 

0.0000000 

-3.000000  • 

0.3405547 

0.1159775  -0.2744812 

0.0000000 

a 

0.91*2*51 

.9807044 

a 

0.0000000 

0.0000000 

0.0000000 

-2.000000  ” 

o.«5**ios 

0.1908907  -0.2752715 

0.0000000 

a 

0.0249125 

.9730874 

a 

0.0000000 

0.0000000 

0.0000000 

-1. 000000  • 

0.5332642 

0.2845729  -0.2760419 

0.0000000 

a 

0.0355414 

.9644585 

a 

0.0000000 

0.0000000 

0.0000000 

0.000000  » 

0.4296220 

0.5***25*  -0.27*1125 

0.0000000 

a 

0.0451802 

.9548197 

a 

0.0000000 

0.0000000 

0.0000000 

1.000000  • 

0*7219771 

0.5270438  -0.2774427 

O.OOQQOOO 

a 

0.0558219 

.9441710 

a 

0.0000000 

0.0000000 

0.0000009 

2.000000  • 

0. 022555* 

0.6742326  -0.2784330 

0.0000000 

a 

0*0674874 

.9325125 

a 

0.0000009 

0.0000000 

0.0000000 

s.cooooo  • 

0.91868*4 

0.843*90$  -0.2792254 
1.0593144  -0.2800138 

0.0000000 

a 

0.0801558 

.9198441 

a 

0.0000000 

0.0000000 

0.0000000 

4.000000  • 

1.0150452 

0.0000000 

a 

0.0938542 

.9061657 

a 

0.0900000 

0.0000000 

0.0000000 

5.000000  • 

1.1114096 

1.2352104  -0.2808042 

0.0000000 

a 

0.1085224 

.8914775 

a 

0.0000000 

0.0000000 

0.0000000 

0.000000  » 

1.2077560 

1.4586744  -0.2815945 

0.0000000  " 

0.1242206 

0.8757794  a 

0.0000000 

0.0000000 

O.OOOOCOO 

7.0D00C0  » 

1.30-1126 

1.7007084  -0.2823869 

0.0000000  a 

0.1409285 

0.8590716  a 

0.0000000 

0.0000000 

c.ooooccc 

0.000000  « 

1.4004679 

1.96230*4  -0.2831753 

0. 0000000  a 

0.15864*4 

0.8413555  a 

O.OCOOOOO 

0. 0000000 

0.0000000 

s.coccoo  * 

1.6968:35 

2.24047*5  -0.282*656 

o.eccoooo  « 

0. I 773761 

0.8226258  a 

0.0000000 

0.0000000 

c.ooooccc 

lO.OCSOCO  * 

1.5931797 

2.5382214  -0.2867561 

O.OOOOCOO  H 

0.1971118 

0.8026882  • 

0.0000000 

0.0000900 

o.ocococc 

U. 000909  » 

1.6895351 

2.8565284  -0.2655466 

0. 0000000  a 

0.2178595 

0.7821407  a 

o.ooocooo 

0.0000000 

O.OOOOO'JO 

12 . 0C0000  « 

2.7858906 

3. 18*6065  -0.2363368 

C. 0000000  • 

0.2396168 

0.7603832  • 

0.0000000 

o.oocoooo 

O.OOCOOOO 

I5.00CC00  a 

1.8822660 

3.54286*5  -0.2871272 

O.OOOCOOC  a 

0.2623841 

0.7376159  a 

0.0000000 

0.0000090 

0.0000000 

U.0G9000  ■ 

1.9786024 

3.9148674  -0.2879176 

C.Q0C0C00  a 

0.2861612 

0.7138388  ■ 

o.oocoooo 

O.OOOOCOO 

O.OOOOCOO 

1S.OOCOOO  » 

2.07<.?578 

4.30S4445  -0.2887079 

O.OOCOOOO  « 

0.310*483 

0.6690516  ■ 

0.0000000 

0.0000000 

O.COOOOCO 

U.0C0CC9  ■ 

2.1713142 

4.7146053  -0 . 23*4*83 

0. 0000000  a 

0.3567453 

0.6632546  a 

o.oocoooo 

0.0000000 

O.OOOOCOO 

17 . 0Q00C0  « 

2.26766*7 

5.1423254  -0.2*02687 

O.COOOOCO  a 

0.5635521 

0.63*4478  * 

O.OCOOOOO 

0.0000000 

o.ooocooo 

18.00CC00  « 

2.3660211 

5.5686145  -0.29107*0 

O.COOCOCO  a 

0.3*13*89 

0.6C863U  a 

O.OOCOOOO 

0.0000000 

O.OOOOCOO 

19.0000CC  a 

2 .46038  IS 

6.0534763  -0.291 6694 

0.0000000  • 

0.4201955 

0.5798045  • 

O.OOOOCOO 

0.0000000 

0.0000000 

20.000000  • 

2-5567369 

6.53**034  -0.292*598 

0.0000000  » 

0 .4500320 

0.549*679  a 

O.OOOOCOO 

0.0000000 

o.ooocooo 

21.000000  a 

2.6550926 

7.0388985  -0.2*34502 

0.0000000  a 

0.4808784 

0.5191215  a 

0.0000000 

0.0000000 

0.0000000 

22.000000  a 

2. 7496488 

7.5594683  -0.2942405 

0.0000000  a 

0.5127547 

0.4872653  a 

0.0000000 

0.0000000 

O.OCOOOOO 

22 . 00C  000  a 

2.8658062 

8.0986013  -0.2950510 

0.0000000  a 

0.5456008 

0.4543991  a 

0.0000000 

0.0000000 

0.0000000 

2*.  .000000  • 

2.9421*06 

8 . 6563*82  -0.2958213 

0.0000000  a 

0.5794769 

0.4205230  « 

0.0000000 

0.0000000 

0.0000000 

25 .000000  a 

5.0385160 

9.2325792  -0.2*66117 

O.OOOOCOO  a 

0.6143628 

0.3856572  « 

0.0000000 

0.0000000 

0.0000000 

26.000000  « 

5.1548715 

9.8274183  -0.2*74021 

O.OCOOOOO  a 

0.6502586 

0.3497413  « 

0.0000000 

o.oocoooo 

0.0000000 

27.000000  a 

S. 2512279 

10.4408331  -0.2*81*24 

0.0009000  a 

0.6871643 

0.3128556  ■ 

0.0000000 

0.0000000 

0.0000000 

28.000000  « 

3.5275853 

11.0728102  -0.2989828 

0.0000000  a 

0.7250799 

0.2749200  " 

0.0900000 

0.0000000 

0.0000000 

29.000000  a 

3.4239388 

11.72335*2  -0.2997732 

0.0000000  » 

0.7640054 

0.2359945  « 

0.0000000 

O.OOOOCOO 

0.0000000 

50.000000  • 

5.5202951 

12.3924770  -0.3005636 

0.0000000  a 

0.8039407 

0.1960592  " 

0.0000000 

0.0000000 

0.0000000 

»  SECOND  RUN  FOR  STABILITY  DERIVATIVE  CASE  a 


*  STASILITY  DERIVATIVE  DATA  FOR  fundamental  CASE  1  * 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO  YAWING.  CLLR  •  0.0001168 

YAWING  MOMENT  COEFFICIENT  ABOUT  XNC  DUE  TO  YAWING  ABOUT  XCG.  CN(R)  NAY  BE  CALCULATED  AS  FOLLOWS 

CN(R)  «  CNR*R  ♦  CNR2«R«»2 

WHERE  CNR  «  0.000001049 

CNR 2  •  0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  YAWING.  CV(R1  MAY  BE  CALCULATED  AS  FOLLOWS 

CY(R)  *  CVR»R  ♦  CYR2»R"»2 

WHERE  CYR  >  0.000000000 

cyr:  •  o.oocoooo 


■  STABILITY  DERIVATIVE  DATA  FOR  FUNDAMENTAL  CASE  2  « 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  OUE  TO  YAWING.  CLLR  •  0.000043* 

YAWING  MOMENT  COEFFICIENT  ABOUT  XNC  DUE  TO  YAWING  ABOUT  XCG.  CN(RJ  HAY  BE  CALCULATED  AS  FOLLOWS 

CNfR)  .  CNR ♦  CNR2"M"2 

WHERE  CNR  •  0 . 000000034 

CNR2  ■  0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  YAWING •  CYCR)  HAY  BE  CALCULATED  AS  FOLLOWS 

CY(R)  •  CVR"R  ♦  CVR2»R««2 

WHERE  CVR  •  0.000000000 

CYR 2  •  0.0000000 

»  STABILITY  DERIVATIVE  DATA  FCR  FUNDAMENTAL  CASE  3  • 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO  VAWINQ.  CLLR  •  0.0000344 

YAWING  MOMENT  COEFFICIENT  ABOUT  XHC  DUE  TO  YAWING  ABOUT  XCG.  CN(R)  HAY  BE  CALCULATED  AS  FOLLOWS 

CN(R)  ■  CNRaR  ♦  CNR2"R**2 

WHERE  CNR  •  -0.000000100 
CNR2  •  0.0000000 

SIDE  FORCE  COEFFICIENT  OUE  TO  YAWING.  CYCRJ  MAY  BE  CALCULATED  AS  FOLLOWS 
CV(R)  •  CVRaR  ♦  CVR2"R»"2 


WHERE  CYR  • 

CVR2  • 

STABILITY  DERIVATIVE  DATA  FOR  FUNDAMENTAL  CASE  A 


0.000000000 

0.0000000 


ROLLING  MOMENT  CO EFF  DERIVATIVE  OUE  TO  ROLLING.  CLLF  a  -0.0000040 

YAWING  MOMENT  COEFFICIENT  ABOUT  XNC  DUE  TO  ROLLING.  CNIF)  NAY  BE  CALCULATED  AS  F0LLQMS 

CNIF1  a  CNF2«F»«2 
WHERE  CNF2  a  0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING.  CVlFJ  MAY  BE  CALCULATED  AS  FOLLOWS 
CYtF)  a  CYF2"F»»2 
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WHERE  CYP2  -  0.0000000 


•  STABILITY  DERIVATIVE  DATA  FOR  COMPOSITE  CASE  1  ■ 


All)  A(2)  AC) 
0.000000  10.000000  10.000000 


FUNDAMENTAL  CASE  FACTORS 
A(4  )  ACS)  4(6)  A<7> 

0.000000  0.000000  0.000000  0.000000 


*<•) 

0.000000 


A<9) 

0.000000 


A(IO) 

0.000000 


LIFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING  ABOUT  XCG.  CLO  »  0.009470 

PITCHING  MOMENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN  DUE  TO  PITCHING  ABOUT  XCG.  CMQ  •  -0.030412 
PITCHING  MOMENT  COEFF  DERIVATIVE  ABOUT  XMC  DUE  TO  PITCHING  ABOUT  XCG.  CMQMC  •  -0.016043 

ROLLING  moment  COEFF  DERIVATIVE  DUE  TO  ROLLING.  CLLP  *  -0.0066949 


YAWING  MOMENT  COEFFICIENT  ABOUT  XHC  DUE  TO  ROLLING.  CNCP)  MAY  BE  CALCULATED  AS  FOLLOWS 

CNIP)  ■  CNP«P  ♦  CNP2*P««2 
WHERE  CNF  »  CNPO  ♦  CNPA-ALPMA 
CNPO  •  -0 . 000353 1 

CNF A  •  -0.0000*01 

CNP2  «  0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING.  Cv<P)  HAY  BE  CALCULATED  AS  FOLLOWS 
CY(P)  *  CYP"P  ♦  CYP2*P««2 
WHERE  CVP  •  CYPO  ♦  CVPAWALPHA 
CVPO  >  0.0000900 

CYPA  «  0.0000000 

CYP2  ■  0.0000000 

ROLLING  MOMENT  COEFF  DERIVATIVE  DUE  TO  YAWING  ABOUT  XCG.  CLLR  MAY  BE  CALCULATED  AS  FOLLOWS 

CLLR  •  CLLRO  ♦  CLLR Am ALPHA 
W>«RE  CLLRO  •  0.0007005 

CLLRA  •  0.0001 UO 

YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG.  CNCR)  MAY  BE  CALCULATED  AS  FOLLOWS 

CN(R)  «  CNR*R  ♦  CNR2"R»«2 
WHERE  CNR  ■  CNRO  ♦  CNR A« ALPHA  ♦  CNR AC "ALPHA* "2 
CMRO  »  -0.0000130 

CNR A  ■  -0.0000015 

CNRA2  •  0.0000010 

AND  CNR2  •  CNRCO  ♦  CNR2AOALPHA  *  CNR2A2*ALPHA""2 
CNR 20  «  0.0000000 

CNRCA  ■  0.0000000 

CNR 2 AC  «  0.0000000 

SIDE  FORCE  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG.  CVIR)  MAY  BE  CALCULATED  AS  FOLLOWS 

CVlR)  •  CYR«R  ♦  CVR2"R»*2 
WHERE  CVR  •  CYRO  ♦  CYRA"ALPHA  ♦  CYRA2»ALFHA«"2 
CvRO  •  0.0000000 

CYRA  >  0.0000000 

CVRA2  *  0.0000000 

AND  CYR2  •  CYR20  ♦  CYR2A**ALPHA  ♦ 

CYR20  •  0.0000000 

CVR2A  *  0.0000000 

CVR2A2  •  0.0000000 


CYR2A2"ALPHA"»2 


*  VARIATION  OF  STABILITY  TERMS  WITH  ANGLE  OF  ATTACK  " 


ALPHA 

CNP 

CNP2 

CVP 

CYP2 

-Q^OOOSOTO 

CNR 

CNR2 

■lO.OCCOOO  • 

0.0002A79 

0.0000000 

« 

0.0000000 

0.0000000 

* 

0.0001271 

0.0000000 

•5 . 000CP0  - 

0.0002878 

0.0000000 

• 

O.COOOOQO 

0.0000000 

m 

-0.0002712 

0.0001058 

0.0000000 

-o.oooooc  • 

0.0001277 

0.0000000 

• 

0.0000000 

0.0000000 

0 

-0.0001545 

0.0000824 

0.0000000 

-7.000000  • 

0.0000676 

0.0000000 

« 

0.0000000 

0.0000000 

0 

-0.0000375 

0.0000632 

0.0000000 

-6.000000  * 

0 .0000075 

0.0000000 

» 

0.0000000 

0.0000000 

0 

0.0000794 

0.0000460 

0.0000000 

-5.000000  ■ 

-0 . 0C0C526 

o.ocooooo 

» 

0.0000000 

0.0000000 

0 

0.0001962 

0.0000309 

0.0000179 

0.0000000 

-A. 000000  » 

-0.0001127 

0.00 00000 

* 

0-0000000 

0.0000900 

0 

0.0005131 

0.0000000 

-5.0CGCOO  » 

-0.0001728 

o.oooocoo 

m 

o.ooococo 

0.0000000 

0 

0.0004299 

0,0000070 

0.0000000 

-2.OCC000  • 

-0.0002529 

0.0000000 

• 

0. 0000000 

0.0000000 

0 

0.0005468 

-0.0000017 

0 . 000Q0C0 

-1.000000  " 

-0.0002950 

0.0000000 

m 

0.0000000 

0.0000000 

• 

0.0006636 

-0.0000284 

0.0000000 

0.000030  * 

-0.0003551 

0.0000000 

« 

0.0000000 

0.0000000 

0 

0.0007805 

-0.0000130 

0.0000000 

i.oococo  * 

-0. 0004152 

o.ooccooo 

m 

0.0009000 

0.0000000 

0 

0.0008973 

-0.000015S 

0.0000000 

2.00C003  " 

-0.0004755 

O.COOOOQO 

* 

0.0000000 

0.0000000 

« 

0.0010142 

-0.0000159 

0.0000000 

l. 000000  " 

-0. 00CS55A 

o.ocooooo 

« 

0.0000000 

0.0000000 

M 

0.0011310 

-0.0000142 

0.0000000 

A. 000000  " 

-0 .0005955 

O.OOCCOOO 

* 

o.oooocoo 

0.0000000 

* 

0.0012479 

-0.0000104 

0.0000000 

5.000000  • 

-0.0006556 

0.0000000 

« 

o.ocooooo 

o.ocooooo 

• 

0.0013647 

-0.000004$ 

0.0000000 

6.000000  • 

-0.30C7I57 

0.0000000 

* 

0.0000900 

0.0000000 

0 

0.0014815 

0.0000055 

0.0000000 

7.000000  " 

-0 .0007758 

o.ocooooo 

• 

0.0000000 

0.0000000 

0 

0.0015984 

0.0000136 

0.0000000 

8.000000  • 

-0 . 0008*59 

0.0000000 

• 

0.0000000 

0.0000000 

0 

0.0017152 

0.0000258 

0.0000000 

9.0GOCOO  ■ 

-0.00089AO 

0.0000000 

0 

0.0000000 

0.0000000 

0 

0.0018321 

0.0000401 

0.0000000 

10.000000  " 

-0.00095A1 

o.ocooooo 

■ 

0.0000000 

0.0000000 

0 

0.0019489 

0.0000565 

0.0000900 

ll.OOGOOO  « 

-0-0010142 

o.oooocoo 

■ 

0.0000000 

0.0000000 

0 

0.0020658 

0.0000750 

0.0000000 

12 . OOOCOC  » 

-0.0010745 

0.0000000 

■ 

0.0000000 

0.0000000 

0 

0.0021826 

0.0000956 

0 . 0000000 

15.000000  " 

-0.0011544 

0.0000000 

■ 

0.0000000 

0.0000000 

• 

0.0022995 

0.0001182 

o.oooocoo 

1A.OCCCOO  " 

-0.0011965 

0.0000000 

» 

0.0000000 

0.0000000 

* 

0 .0026163 

0.0001450 

0.0000000 

15 . OOOCOO  ■ 

-0.0012546 

0.0000000 

m 

0.0000000 

0.0000000 

• 

0.0025532 

0.0001699 

0.0000000 

u.ooocoo  » 

-0.0015147 

0.0300000 

M 

0.0000030 

0.9000000 

■ 

0.0026500 

0.0001989 

0.0000000 

17.000000  * 

-0.0015748 

o.cocoooo 

* 

0.0000000 

0.0000000 

0 

0.0027669 

0.0002299 

0.0000000 

18.000000  " 

-0.0314549 

0.0000000 

0 

0.0000000 

0.0000900 

0 

0.0028857 

KKSnHa 

0.0000000 

19.000000  ■ 

-0 . CC 14950 

0.0000000 

H 

0.0000000 

0.0000000 

n 

0.0050006 

0.0002984 

o.ocooooo 

20 . 00CC03  » 

-0.0015551 

o.occcooc 

« 

0.0000000 

0.0000000 

0 

0.0051174 

0.0003558 

0.0000000 

21.000000  ■ 

-0. 0016£S: 

0.00GC000 

■ 

0.0000000 

0.0000000 

0 

0.0032143 

8.0033511 

0.0001752 

0.0000000 

22.000000  • 

-0.001675- 

0.0000000 

■ 

0.0000000 

0.0000000 

■ 

0.0004168 

0.0000000 

25.000000  « 

-0.001755* 

0.000000 0 

■ 

0.0000000 

0.0000000 

■ 

0.0034680 

0.0004604 

0.0000000 

2A. 000000  • 

-0.0017955 

0.0000000 

• 

0.0000000 

0.0000000 

■ 

0.0035848 

0.0005062 

0.0005561 

0.0006040 

0.0000000 

25.000000  » 

-0.0018556 

0.0000000 

■ 

0.0000000 

0.0000000 

■ 

0.0037017 

0.0000000 

26.000000  " 

-0.0019157 

0.0000000 

0 

0.0000000 

0.0000000 

0 

0.0030185 

0.0000000 

27.000000  • 

-0.0019758 

0.0000000 

0 

0.0000000 

0.0000000 

m 

0.0039353 

0.0006561 

o.ooocooo 

28.000000  " 

•0.0020359 

0.0000000 

0 

0.0000000 

0.0000000 

■ 

0.0040522 

0.0007102 

0.0000000 

29.000000  ■ 

-0.0020960 

0.0000000 

■ 

0.0000000 

0.0000000 

• 

0.0041690 

0.0007665 

0.0000000 

30.000000  « 

-0.0021561 

0.0000000 

■ 

0. 0000000 

• 

0.0042059 

0.0000240 

0.0000000 

•  THE 

PROGRAM 

HAS 

REACHED 

NORMAL 

TERMINATION  ■ 

•  THE 

PROGRAM 

HAS 

REACHED 

NORMAL 

TERMINATION  • 
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JETFLAP  INPUT  DATA  FILE  TAPER.DAT 


TAPERED 

SWEPT  WING, 

AR=8.  0, 

SWEEP  ANGLE 

50.0000 

20.000 

0.0 

10.43 

1001000001020000 

. 993844 

.969372 

.921032 

. 850012 

. 232726 

.078217 

01010101010101010101 

10 

.  0 

.  024472 

.  095492 

.206107 

. 904506 

.975528 

8.0 

9 

45.0 

0.45 

45,  10X10  W/SEMI -CIRCLE  SPACING 
10.43 


758062 

. 647446 

. 520888 

. 381504 

345492 

.5000 

. 654508 

. 793893 
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PROGRAM  OUTPUT  DATA  FOR  TAPER.DAT 


«  EVD  JET  -  KING  CC**UTEft  PROGRAM  * 


TAPERED  SWEPT  MING.  AR*8.0.  SWEEP  ANOGLE  4*.  10X10  W/ SEMI-CIRCLE  SPACING 


USED 

INPUT 

AREA 

a 

0.900000 

50.000000 

SPAN 

a 

2.000000 

20.000000 

CREP 

a 

0.241990 

0.000000 

XMC 

a 

1.0*3000 

10.430000 

CMAC 

a 

0.241794 

2.6179*1 

ARAT10 

a 

0.000000 

0.000000 

XCG 

a 

1.043000 

10.430000 

NROMS 

«  10 

10 

NCASES 

a  1 

1 

IS  VMM 

•  0 

0 

IPRINT 

a  0 

0 

jetplg 

a  1 

1 

IGTVPC 

a  2 

2 

IH1NGC 

•  0 

0 

NUMBER  OP  WING  CLEMENTS  •  100 
NUMBER  OP  JET  ELEMENTS  ■  0 
TOTAt  NUMBER  OP  ELEMENTS  •  100 


•  ELEMENT  GEOMETRY  DATA  and  PUNPAMENTAL  CASE  DATA  por  fundamental  CASE  1  ■ 


SECTION  1 
a  1. 1 •720b  CHORD 
MING  ELEMENTS  Nb 
XB 
XI 
DEL 

EPS 

BETA 

TYPE 


V  -  O.**306*  DELTA  a  0.00615a  XLCAD  •  1.06096*  XtRAlL 

•  0.156360  .TANuE  -  1-06761C 


10 

0.000000 
Z.060P66 
0.026672 
1.000000 
O.QCflQOQ 
20 


TWIST  a  0.000000 
0.02*672  0 . 0954*2 


THIS  ROM  HAS  NO  JET 


1.066792 

0.071020 

1.000000 

0.000000 

10 


J.055895 

0.119615 

1.000090 

Q.0C00C0 

10 


ML  a  0.000000  THETA  S  •  0. 

0.206107  0.365692  0.500000 

1.072109  1.096980  1.119136 

0.13*585  0.156508  0.156508 

1.000000  l. 000000  1.000000 

0.000000  0.000000  0.000000 

10  10  to 


000000 

0.656508 

1.163292 

0.13*385 

1.000030 

0.000000 

10 


0.793893 
1 .165083 
0.110615 
1.000000 
0.000000 
10 


0.906508 

1.182377 

0.071020 

1.000000 

0.000000 

10 


0.975528 
1.1*3680 
0.026672 
1.000000 
C. 000000 
10 


aaa  SECTION 
WING  ELEMENTS 

xs 
XI 
DEL 
EPS 
Beta 
TYPE 


0.96*37 

W  a  10 
0.000000 
1.015336 
0.026672 
I.OOOCOO 
0 .000000 
20 


DELTA  a  0.018316  XLCA0  a 


TWIST  a  0.000000 
0.026672  0.0*5692 


THIS  RCw  HAS  NO  JET 
SECTION  2  «*•  V  a  0.921032 


1.019273 

0.071020 

2.000009 

0.090000 

10 


1.020706 
0.110615 
1.0 G0000 
0.000000 
10 


1.01535*  _ 

ML  -  0.000000  theta  s  a  o 
0.206107  0.365692  0.500000 

-  1.070951  - 

0.156508 
I. 000000 
0.000000 
10 


1.068513 

0.13*385 

1.000000 

0.000000 

10 


xtrail 


1.095026 

0.156508 

1.000000 

0.000000 

10 


MING  ELEMENTS 

X8 

XI 
DEL 
E»S 
BETA 
TYPE 
TMIf  *  * 

««»  section 
WING  ELEMENTS 

XB 

XI 
DEL 
EPS 
BETA 
TYPE 

THIS  ROW  HA: 


a»a  SECTION  5 
WING  ELEMENTS 

XB 

XI 

m 

BETA 

type 


10 

o.ooccoo 

0.966702 
0.026672 
1.0C0030 
0.090000 
20 

ROM  HAS  NO  JET 

Y  a  0.850012 

*  10  - 

0.000000 
0.899326 
0.C26472 
1.00C00C 
0.000900 
20 

NO  JET 


DELTA  a  0.050026  XLEAD 


Twist  i"  o.ooooco 

0.026672  0.0*5692 


0. 


ML  •  0.000000 


0 . 968865 
0.071020 
1.000000 
0.000000 
10 


_  DELTA 

twist  »  o 
0.026672 
0.8*6808 

0.071020 

I.OOOCOO 

0.000000 

10 


v  -a*,  r* 

0.980*69 

0.110615 

1.000000 

0.000900 

10 

a  0.060996 

oooooo 

0.0956*2 
8.907868 
0.110615 
1.000000 
0.000090 
10 


0.206107 

0.99*770 

0.159585 

1.000000 

0.090000 

10 


0.365692 

1.022687 

0.156508 

1.000000 

o.ooooco 


XTRAIL 
META  S 


0.500000 

069776 

156508 

.000000 

0.000000 

JO 


i; 


1. 176315  CHORD  *  0.160981  TANLC  *  1.067612 

oooooo 

0.656508  0  *793893  0.906508  0.975528 

1.1206*7  1.163135  I.16096J  1.1725/5 

0.139385  0.110615  0.071020  0.02*472 

1.000000  1.000000  1.000000  1.000000 

0.000000  0.000000  0.000000  o.ooooco 

10  10  10  10 

1.136851  CHORD  a  0.170169  TANLE  »  1.067615 

,000000 

0.65*508  0.793893  0.90*508 

1.076066  1.099782  1.118603 

0.139385  0.110615  0.071020 

1.000000  1.000000  1.000000 

0.000000  0.000090  0.000000 

10  10  10 


0.975528 
1.130687 
0.026672 
1.000000 
o. oooooo 
10 


.  XLCAD  a  0.890316  XTRAIL  • 

"p .  5o.i6?#0Tj.5««  o  .1  olooo 


0.928159 

0.139285 

1.000000 

0.000000 

10 


0.953753 

.156508 

.oooooo 

.000000 

10 


0.902123 

0.156508 

1.000000 

0.000000 

10 


I. 073933  CHORD  *  0.183618  TANLE  •  1.067613 

,000000 

0.656508  0.793893  0.906508  0.975528 
1.010696  1.036088  1.056399  1.06*639 
0.139385  0.110615  0.071020  0.026672 
1.000000  1.000000  1.000000  1.000000 
0.000000  0.000000  0.000000  0.000000 
10  10  10  10 


THIS  ROW  HAS  NO  JET 
SECTION  6  »•*  V  a  0.647666 


V  a  0.758062  DELTA 
M  a  10  TWIST  a  Q. OOOOOO 
0. OOOOOO  0.026672  0.0*56*2 

0.7*6035  0.7*8*25  0.01S2C6 

0.026672  0.071C20  0.119615 

1.000000  2.009090  2.000000 

0. OOOOOO  0.000000  0.000000 

20  10  10 


0.050956  XLEAO  a  0.796005  XTRAIL  • 


_  . .  8.995062  CHORD  a  0.201057  TANLE  •  1.0*7613 

ML  ■  0.000000  THETA  S  •  0.000000 

-  0.3654*2  0.500000  0.656508  0.793891  0.906508  0.975528 

0.863668  0 .896533  0.925598  0.955622  0.9750*2  0. *901*2 

0.156508  0.154508  0.139385  0.110615  0.071020  0.02**72 

2.000000  1.0C00C0  1.000000  1.000000  1.000000  1.000009 

0.000000  0.000000  0.000000  0.000000  0.000000  0.000000 

10  10  10  10  10  10 


WING  ELEMENTS 

XB 

XI 

DEl 

EPS 

BETA 

type 


10 

0.000000 
0.678166 
0.026672 
1. OOOOOO 
0.000000 
20 


THIS  RDM  HAS  NO  JET 
SECTION  7  V  »  0.520888 

a  0.791626  CHCRD  •  0.2460;  " 

WING  ELEMENTS 


.  DELTA 
TWIST  «  r 
0.024672 
0.683577 
0.071020 
1. OOOOOO 
0.000000 
10 


0.059662 
OOOOOO 
0.0*5692 
0.6**36a 
0.110615 
1. 000000 
0.000000 
10 


0.206107 

0.035**6 

0.13*385 

I.OOOCOO 

0.000000 

10 

XLCAD 


0.678146  XTRAIL  • 
ML  «  0.000000  TMCTA  S  *  0 

0.206107  0.365*92  0.500000 

-  0.756856  0.789162 

8.156508  0.156508 

1.000000  1.000000 
0.000000  0.000000 
10  10 


0.723907 

0.139385 

1.000009 

0.000000 

20 


0.900100  CHORD  ■  0.222056  TANLE  a  2.0*7614 
.OOOOOO 

0.45*508  0.793893  0.904508  0.975528 
0.823468  0.05*417  0.078*77  O.0**7*4 
0.139385  0.110415  0.071020  0.02**72 
1.000000  1.000000  1. OOOOOO  I.OOOCOO 
0.00C090  0.000000  0.000009  0.000000 
10  10  10  10 


xo 

XI 

DEL 

EPS 

•eta 

type 


10 

0.000000 
0.5*5585 
0.02**72 
1.090000 
0.000000 
20 


20888  DfLT 

30  TANLE  • 


,TA  a 


0.0(4094 
2.847*14 


XLEAO  •  0.545585  XTRAIL 


TWIST  a  0.800000 
0.024*72  0.0*5*92 


aaa 

WING 


THIS  RON  HAS  HO  JET 
-  V  a  0 


0.551606 

0.071020 

1.000000 

0.000000 

10 


0.569000 

0.110615 

1.000009 

0.000000 

10 


ML  •  0.000000  aTMETA  $•  0. 

0.204107  0.345*92  0.500000 

0.594295  0.630590  0.668604 

0.139385  0.154508 

1.000000  1.000000 
0.000000  0.000000 
10  10 


0.154508 
I. OOOOOO 
0.000000 
10 


.iEBBrs' 


XI 

XI 

IU 

fgg 


10 

0.000900 
0.39*593 
0.02*472 
1.000000 
0.000000 
20 


THIS  ROW  MAS  NO  JET _ 

•a*  SECTION  9  V  a  0.232726 


381504  DELTA 

TWIST  a  8.000000 
0.024472  0.095* 

0.406260  “ 

0.071020 
1.000000 
0.000000 
20 


0.072688  XLCAD  *  0.399593  XTRAIL  • 

0.800000  _ TMETA  S_*..| 


-  95492 
0.425612 
0.110615 
1.000000 
0.800000 
20 


ML  •  _ 

0.206107 
0.455751 
0.13*385 
1.000000 
0.000000 
10 


uwm 


0.500000 

0.535829 


0.154508  0.154508 

1.000000  1.000000 


0.000000 

10 


0.000000 
20 


800000 

0.654500  0.793893  0.90*508  0.975520 
8.706619  0.740911  0.760129  $.715(01 
0.139385  0.110615  0.071020  0.02**72 
1.000000  1.000000  1.000000  1.000000 
0.000000  0.000000  0.000000  0.000000 
10  10  10  10 

0.672064  CHORD  •  0.272673  TANLE  •  1.047414 
.000000 

0.654508  8.793893  0.904508  0.975528 
0.577929  0.615907  0.4*6047  0.6653*0 
0.139385  8.110615  0.071020  0.024*72 
1.000000  1.000000  1.000000  1.000090 
0 . OOOOOO  0.000000  0.000000  0 . oooooo 
10  10  10  10 


WING  ELEMENTS  _ 
XB 
XX 

ft 

tilt 


10 

0.000000 

0.243760 

0.02*472 

1.000000 

0.090000 

20 


_  oclta 

TWIST  a  0 
0.024*72 
0.251119 
0.071020 
1.000000 
0.000000 
10 


0.076290 
OOOOOO 
0.095492 
0.272474 
0.110415 
1.000000 
0.008000 
10 


0.241740  XTRAIL  • 
ML  •  0.000000  THETA  5  «  0 

0.204107  0.345492  0.500000 

-  0.3476** 

0.154508 
1.000000 
0.000000 
10 


irm 

1.000900 

0.000000 

10 


0.394105 

0.154508 

1.080000 

0.000080 

10 


{.544450  CHORD  • 
00000 

*38*1 

0.13958$ 


0.300690  TANLE  •  1.0*7414 


1.090000 

0.000000 

10 


0.798893 

0.482474 

0.110415 

1.000000 

0.008000 

10 


{.904508 
.515737 
8.071820 
1.000800 
0.000000 
10 


0.975528 
8.537092 
0.02**72 
1. OOOOOO 
0. oooooo 
10 
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THIS  ROW  HAS  HO  JET 

•••  SECTION  10  *•*  V  •  0.079217  DELTA  •  0.078219  XLEAD  •  0.081926  XTRaJL  •  9.(11919  CHORD 


WING  ELEMENTS 

XB 

XI 

DEL 

z^Z 

BETA 

TYPE 


W  *  10 
O.OCOCOO 
C.CS1?:6 
0.024472 

i.oocscs 

o.occoco 

20 


ROW  HAS  HO  JET 


TWIST  « 

0. 024472 
0.0*0001 
0.071020 
1  .OOCCCO 
0.000000 
10 


c.cooooo 

O.C«S4«2 

0.113437 

0.110615 

1.0000CC 

0.000000 

10 


■  0.82 9995  TANLE  « 


0.206107 
0-149939 
0. 139385 
1.000000 
0.000000 
10 


0.3454«2 

0.195936 

0.1545C8 

i.cooeoo 

0.000000 

10 


0.500000 
0.246922 
0.154508 
l. 000000 
0.000000 
10 


0.654509 
0.297909 
0.139385 
1.000000 
C. 000000 
10 


0.795895 

0.545905 

0.11061$ 

1.000000 

0.000000 

10 


0.904508 

0.380407 

0.071020 

l.QOCOOO 

0.000000 

10 


»  SECTIONAL  JET  BLOWING  COEFFICIENTS 


CNU 

0.000000 

0.000000 

0.000000 

0.000000 

Q.0Q0OC0 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


■  CHORDUISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  • 


SECTION 

i  v  « 

0.993944 

CHORD  • 

0.156340 

1 

XB 

CASE  1 

CASE  2 

CASE  5 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

1 

0.000000 

0.565735 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

2 

0 . 024472 

0.244147 

o.ooooco 

o.ooccoo 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

3 

0 . 095492 

0.050298 

0.000QCQ 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

6 

0.2061C7 

0.020919 

0.000000 

0.000000 

o.ooocoo 

o.oocooo 

0.090000 

0.009000 

0.000200 

0.000090 

0.000000 

5 

C. 3454<»2 

0.011226 

o.coococ 

O.OCOCOO 

0.002000 

o.ooccoo 

0.002000 

0.000000 

o.ooooco 

o.ocoooo 

0.000000 

6 

0.5C0030 

0.006413 

O.OOOOCO 

0.0C0CCC 

0.C00220 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 

7 

0.654508 

O.OCJTZl 

O.OCOCOO 

O.OCOOOO 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

8 

0.7?:3°2 

C . 0  0 1 9  °4 

C.CCCCOO 

O.OOCCOO 

0.000000 

0.000000 

0.000000 

o.ooooco 

c.occoco 

C.  000000 

o.ooocoo 

« 

0  •  9045  C9 

0.000927 

c. 000000 

o.ccccoo 

0.000000 

O.OCOOSO 

o.oococc 

o.ooooco 

0.000002 

o.ooocoo 

o.ooocoo 

1C 

0. •75523 

0.000486 

0. OOCCCO 

0.C0GCC0  0.000020  0.000000 

DETAILED  LEADING  edge  loading 

0.000000 

0.000000 

o.ooocoo 

o.ocoooo 

0.000000 

0 . 0048*4 
C .  009789 
0.014682 
0.019578 
0.024472 


0.816745 
0.543132 
0 -40  7 10 1 
0.315266 
0.244147 


«  CHORDMI5E  LOADING  FOR  ALL  FUNDAMENTAL  CASES  ■ 


X 

XB 

CASE  1 

SECTION 
CASE  2 

n 

o.ocoooo 

0.570115 

0.000000 

12 

C.C24472 

0-320536 

c. 000000 

13 

0 . 0*54*2 

0.126056 

o.oocooo 

14 

0.2C6:C7 

0.064432 

0.000000 

25 

0.3454*2 

0.033466 

o.ocoooo 

16 

c.sccooo 

0.017851 

o.ooocoo 

17 

0.6S45C8 

0 . 010C13 

o.ocoooo 

18 

C. 793893 

0 -  0058 1 1 

o.ccoooo 

19 

0.904508 

0 . C033a0 

o.ooooco 

20 

0.975528 

0.001583 

0.000000 

1 

0.004994 

0-837965 

0.00978® 

0-577136 

3 

0.  Cl  4683 

0.454951 

4 

0.319578 

0.377306 

5 

0.C24472 

C.  320536 

2  Y  ■ 

0.969372 

CHORD  « 

0.160981 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ocoooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

o.ooocoo 

0.000000 

o.ooocco 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.oocooc 

0.000000 

o.ooooco 

o.ooocoo 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocco 

o.occoco 

o.oocooo 

o.ooooco 

0.000000 

0.000000 

o.ooocco 

0.000000 

o.cocccc 

0.000000 

0.000000 

0.000000 

0.080000 

c.cooooo 

0.000000 

o.ooooco 

o.oocooo 

0.000090 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooocoo 

o.ooccoo 

o.oocooo 

0.000000 

0.000000 

o.ooooco 

0.000000 

0.000000 

0. 000000 

o.ooocoo 

DETAILED  LEADING  EDOE  LOADING 

CMORDW;:$£  LOADING  FOR  ALL  FUNDAMENTAL  CASES  » 


SECTION 

1  Y  * 

0.921032 

CHORD  » 

0.170149 

r 

XB 

CASE  l 

CASE  2 

CASE  5 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

1 

0.000000 

0.583867 

0.000000 

c.ooocco 

0 . cooooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

2 

0.024472 

0.341126 

o.ocoooo 

0.000000 

0.000000 

o. cooooo 

0.000000 

0. 000000 

0.000000 

0.000000 

0.000000 

* 

0.095492 

0.149C01 

0.084181 

o.oocooo 

o.ooooco 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0. cooooo 

0.003030 

4 

0.206107 

o.oocooo 

o.coocco 

o.ooooco 

0.000000 

o.ocoooo 

0.000000 

0.000000 

o.ooccoo 

o.ooocoo 

5 

0.345492 

0.C55031 

o.ocoooo 

C. 000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.003000 

0.003000 

o. cococo 

6 

0.5C0300 

0.0368C5 

o.oocooc 

o.oocooo 

0.030000 

o.oocooo 

o.oocooo 

0.000000 

0.000000 

o.oocooo 

o.ooocco 

7 

0.6S45C8 

0.023626 

o.ooccoo 

0.000300 

0.000033 

0.000300 

o.ocoooo 

o.ooooco 

0.000000 

0.000000 

■ o.ooocoo 

8 

0 . 7938° 3 

0.014871 

0 .  QC0G00 

o.ooooco 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.000000 

o.ooocco 

4 

C.9C65C8 

0 .008*62 

o.ocoooo 

o.ocoooo 

o.ooooco 

0.000000 

c.cooooo 

0.000009 

o.oocooc 

0.000000 

o.ccoooo 

6 

0.975528 

0  .  C  342  08 

0.000000 

O.OOCCOO  0.003000  o.ooocoo 
DETAILED  LEADING  EDGE  LOADING 

0.000003 

0.000090 

0.000000 

0.000000 

o.oocooo 

0.004894 

0 .009789 
0.014*83 
0.019578 
0.024472 


0.960751 

0.596198 

0.473635 

0.396696 

0.541116 


•  CHORDH1SC  LOADING  FOR  ALL  FUNDAMENTAL  CASES  • 


SECTION 

4  Y  • 

0.950012 

CHORD  • 

0.183618 

X 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  5 

CASE  7 

CASE  9 

CASE  9 

CASE  10 

SI 

0.000000 

0.582747 

0.000000 

0.000000 

0.000000 

0.000000 

9.000000 

9.000000 

0.000000 

0.000000 

0.000000 

52 

0.024472 

0.344834 

o.ooocoo 

0.000009 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000009 

35 

0.C95492 

C. 156110 

o.ooooco 

0.000000 

0. cooooo 

0.000000 

o.ooeooo 

0.000000 

0.000000 

0.000000 

0.000000 

S« 

0.2C61C7 

0.090613 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

55 

0.345492 

0.059662 

0 .000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000003 

56 

0.500000 

0.043749 

0.000000 

0.000090 

0.000000 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

37 

0.6S45C8 

0.031802 

o.ooocoo 

o.ooccoo 

0.000000 

0.090000 

0.800000 

0.000000 

0.000000 

0.000080 

0.000009 

58 

0.793B9S 

0.022199 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

59 

0.904508 

0,014177 

0.000900 

0.000000 

0.000000 

9.000000 

0.000000 

0.000000 

0.000000 

0. 000000 

0.000000 

40 

0.975529 

0.006920 

0.000000 

0.000000 

0.800000 

0.000008 

0.000000 

0.008000 

0.000000 

0.000900 

0.000000 

xtailed  leading  edge  loading 

1 

0.004894 

0.859974 

2 

0.009789 

0.596803 

3 

0.014683 

0.475350 

4 

0.019578 

5 

0.024472 

0.344934 

•  CHORD* I SC  LOADING  FOR  ALL  FUNDAMENTAL  CASES  » 
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CASE  1 

SECTION 

5  v  . 

C. 7580*2 

CHORD  * 

0.201057 

I 

XB 

CASE  2 

CASE  5 

CASE  4 

CASE  5 

CASE  * 

CASE  7 

CASE  1 

CASE  9 

CASE  10 

41 

0.090000 

0.571170 

O.OCOOOO 

O.OOOOOC 

0.000030 

0.000000 

O.OOOOCO 

0.000000 

8.000000 

0.000000 

o.ooccoo 

42 

0.026472 

0.259775 

G.OCCCCO 

C.00C3CC 

o.ccoccc 

o.ocoooo 

0.000000 

0.000000 

0.030000 

o.oooooc 

o.occcco 

65 

0.0*54*2 

0.  15*1*7 

0.CCO9C0 

o.ocoooo 

O.COOOCO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

C.0C09C0 

46 

0.20*107 

0.0*1825 

1 .  COOQGQ 

O.OOOOCO 

0.300000 

O.OOOOCO 

0.000000 

0.000000 

0.000000 

O.OOOOCO 

c.oococo 

65 

C. 2454*2 

0.0*0084 

-i.OCOCOO 

O.OOGOOC 

0.000000 

o.ocoooo 

0.000000 

0.000000 

0.000000 

O.OOOOCO 

0.000000 

6* 

0.50C000 

0.046228 

0.002090 

O.COOOCO 

o.ocoooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOCOOO 

67 

0.*545C3 

0.022507 

O.COOCCC 

O.OOOCOO 

o.ooocoo 

O.OOOOCO 

O.C9COOO 

0.000000 

0.000000 

o.ooocoo 

o.ocococ 

68 

0.792893 

0.026279 

o.oooooc 

o.ocoooo 

O.COOOCO 

0 .ooocco 

0.000000 

0.000000 

o.ocoooo 

o.ooocoo 

0.000002 

49 

C. 904508 

0.015*27 

O.OOOOCO 

o.ocoooo 

O.OCOOOO 

O.QOOOOO 

o.ooocoo 

0.000000 

0.000900 

0.000000 

O.OOOOCO 

SO 

0.975528 

0.0C7778 

0.000000 

o.oooooc 

0.000000 

O.OCOOOO 

0.000000 

0.000000 

O.OOOOCO 

0.000000 

O.OOOOCO 

DETAILED  leading  edge  loading 

1 

0.0048*4 

0-842248 

2 

0.009789 

0 .585**5 

5 

0.014*85 

0.4**981 

4 

0.019578 

0.392920 

5 

0.024472 

C. 539775 

•  CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES  « 

1 

SECTION 

*  V  * 

0 . *6744* 

CHORO  ■ 

0.22203* 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  A 

CASE  7 

CASE  • 

CASE  9 

CASE  10 

0.000000 
0. 026*72 
0.095692 
0.20*107 
0.565692 
0.500000 
0. *56500 
0.7*58*3 
0.906500 
0.975528 

C. 0048*4 
0.C09789 
0.016*85 
0 .  C  l  95  ra 
0.026672 


0.000000 
0.026672 
0.0*54*2 
0.22*107 
0.565692 
0.500000 
0.  *54509 
0. 7*2895 
0.904508 
0.97552* 

0.0048*4 

0.02*789 

0.014*85 

0.01*578 

0.024672 


0.552755 
0.529515 
0. 152288 
0.09012* 
0.058818 
0.04505* 
0 .025065 
0.0242*9 
0.02*02* 
0.007*65 

C. 01*171 
0.5*7042 

0.452255 

0.280804 

0.329515 


0.528120 
0.515010 
0.  U59C7 
Q . 08  *4oB 
0.05*658 
0.061378 
0.031*72 
0.025*80 
0.015.79 
0.007727 

0.7798*0 

0.541059 

0.65229* 

0.5*2*91 

0.515010 


0.000000 
0.000000 
O.OOOCOO 
0.000000 
0 . 0000  00 
0.OOCOOO 
0.000000 
o.csoooo 
0. 000000 
0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

o.ocoooo 

0.000000 

0.003000 

0.000000 

0.000000 

DETAILED 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.090000 

0.000000 


0.000000 

0.000000 

o.ocoooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


LEADING  EDGE  LOADING 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


•  CHORD* I SE  load: *G  FOR  ALL  FUNDAMENTAL  CAGED  • 


SECTION 
CASE  2 

0.000000 

O.COOOCO 

0.000009 

0.000000 

o.ocoooo 

0.000000 

o.ooocoo 

O.CQCOOO 

o.ooocoo 

0.000000 


7  v  •  o. 520888 
CASE  5  CASE  4 


0.000000 

O.QOOOOO 

0.000009 

o.ocoooo 

o.ocoooo 

0.000099 

o.ocoooo 

0.000000 

0.000000 

G.OOOOCO 

detailed 


0 . 000000 
0.000000 
0.000000 
0.000000 
0.000090 
0.000000 
o.ooocoo 
c. 000000 
0.000000 
0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

o.ocoooo 

o.ooocoo 

0.000000 

0.000000 

o.ooocoo 

0.000000 


LEADING  EDGE  LOADING 


0.24*058 
CASE  * 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000009 

0.000000 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


•  CHOFDWlSe  LOADING  FOR  ALL  FUNDAMENTAL  CASES  ■ 


0.0048*4 

0.00*789 

0.026*85 

0.019570 

0.026472 


0.752114 

0.508*57 

0.405775 

0.341*25 

0.295*28 


*  CHO&2MISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  * 


•  CMORDWISC  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


8.000000 

O.OOOOCO 

0.000000 

O.OOOOCO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 


O.QOOOOO 

0.000000 

o.ooocoo 

O.OOOOCO 

O.OOOOCO 

0.000900 

0.000000 

0.000000 

o.oooooc 

0.000000 


0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.009000 

0.000000 

0.000000 

0.000000 


SECTION 

8  V  « 

0.SSI50* 

CHORD  • 

0.272475 

1 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  < 

CASE  5 

CASE  t 

CASE  7 

CASE  0 

CASE  9 

CASE  10 

71 

0.000000 

0.495801 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

72 

0.024672 

0.2*5*20 

o.oocooo 

0.000000 

0.000000 

0.000000 

o.oocooo 

0.000000 

0.000000 

0.000000 

0.000000 

/3 

0.0*5492 

0.126824 

0.000000 

0.000900 

0.000000 

O.COOOCO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

74 

0.20*107 

0.081121 

0.000000 

0.000000 

o.ooocoo 

0.000000 

O.OOCOOO 

c.  000000 

0.000000 

o.oocooo 

0.000000 

75 

0.265492 

0.052225 

o.oooooc 

0.000500 

0.000000 

O.OOCOOO 

0.000000 

8.000000 

0.000000 

0.090000 

o.ooocoo 

7* 

O.SOOCOO 

O.C39407 

C. 000090 

o.ooocoo 

0.000300 

O.OOCOOO 

o.oocooo 

O.OOOOCO 

O.OOOOCO 

0.000009 

0.009000 

17 

0.6565C3 

0.0207C8 

O.OOOOCO 

o.ooocoo 

o.ocoooo 

o.ocoooo 

0.000000 

0.000000 

O.OOOOCO 

o.oocooo 

0.000000 

78 

C . 7928  3  3 

0.022865 

0 . ooccoc 

o.ccccoo 

o.ooocoo 

o.ocoooo 

0.000000 

0.000000 

0.000000 

0.000000 

o.ocoooo 

7* 

0.9C6503 

0.0151*5 

O.OOOOCO 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ocoooo 

80 

0.975528 

0.007689 

0.000000 

0.000000  O.OOOOCO  0.090000 

DETAILED  LEADING  EDGE  LOADING 

0.000000 

0.000000 

0.000000 

0.000000 

o.oooooc 

I 

X8 

CASE  1 

SECTION 
CASE  2 

9  V  • 

CASE  5 

0.252724 
CASE  4 

CHORD  • 
CASE  5 

0.300490 
CASE  4 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

•I 

o.ocoooo 

0.440440 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

8.000000 

0.000000 

0.000000 

82 

0.024472 

0.247585 

0.000000 

o.ocoooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

•  3 

0.0*54*2 

0.124018 

0.000000 

0.000000 

0.000000 

8.000000 

0.000000 

9.000000 

6.000000 

0.000000 

0.000000 

84 

0. 20*107 

0.074034 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

85 

0.545492 

0.049507 

0.000000 

o.eooooo 

0.000000 

0.000000 

0.000900 

0.000000 

0.000000 

0.000000 

0.000030 

•« 

0.500000 

0.057572 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

•  7 

0.454508 

0.029464 

0.000000 

0.000000 

0.000000 

8.000000 

0.000000 

0.800000 

0.000000 

0.000000 

0.000000 

80 

0.7*5895 

0.022U2 

0.009000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.800000 

0.000000 

09 

0.904500 

0.014745 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOOOCO 

90 

0-975520 

0.0072*8 

o.eooooo 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

1 

2 

1 

4 

5 

0.004094 

0.009789 

0.014405 

0.019578 

0.024472 

0.442517 

0.440520 

0.547252 

0.509194 

0.247585 

DETAILED  LEADING  EDGE  LOADING 

I 

xt 

CASE  1 

SECTION 
CASE  2 

10  V  • 

CASE  5 

0.078217 
CASE  4 

CHORD  • 
CASE  5 

0.S2999S 
CASE  4 

CASE  7 

CASE  • 

CASE  * 

CASE  10 

ft 

0.000000 

0.340952 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

t.stcsss 

0.000800 

0.000000 

0.000000 

0.024472 

0.2101*4 

O.OOOOCO 

0.000000 

0.000000 

8.000000 

0.000000 

0.090000 

0.000000 

0.000000 

0.000000 

95 

0.0954*2 

0.100887 

O.OOOOCO 

0.000000 

O.OOOOCO 

0.000000 

0.008000 

8.000000 

0.000000 

0.000000 

0.000000 

94 

0.204107 

0.044371 

0.000000 

0.000000 

O.COOOCO 

0.003000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOOOCO 

95 

0.545492 

0.047291 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.COOOCO 

106 


I 


n 

c.sccocc 

0. CJ9I65 

97 

0.654508 

0.030400 

98 

c, 7938*3 

0.C24758 

9* 

0.9045C8 

0 . 01 te  76 

100 

0.975528 

0.006296 

1 

0.0048*4 

0.515699 

0 .00978* 

0.558852 

s 

0.C14693 

0.28o867 

A 

0.019578 

0.242142 

s 

0. 0244 72 

0.21019b 

0.000000 

0.800000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

o.ooooco 

0.003000 

0.000000 

0. oooooo 

o.cooooo 

0.000000 

0.000000 

0.000000 

o.occooo 

o.ooocoo 

c.cooooc 

0.0C00Q0 

0.000300 

o. oooooo 

0.000000 

o.ccoooo 

0.000000 

o.ooooco 

c.ecccoc 

o.ooocoo 

e. oooooo 

o.ooocoo 

O.OOGQOO 

0.000000 

0.000000 

o.cooooo 

o.occooo 

o.occooo 

o.ooooco 

0.000000 

0.000000 

o.ooocoo 

0. oooooo 

0.000000 

0.000000 

0.000000 

0. oooooo 

detailed  lead; kg  edge  loading 


•  SPANW1SE  LOADING  POP  FUNDAMENTAL  CASE  !• 


SECTION 

V 

CLG 

CLMU 

CL 

• 

CDG 

CDMU 

cs 

CD 

CMU 

GAMMA 

ALFIN 

1 

0.993844 

0.036230 

0.000000 

0.036230 

« 

0.0006323 

0.0000000 

0.OO1S670 

-0.0007347 

0.0000000 

0.0028321 

0.0570169 

0.9*9372 

0.059019 

0.000000 

0.059019 

» 

0.0010501 

0.0000000 

0.0015883 

-0.0003582 

0.0000000 

0.0047505 

0.0255027 

s 

0. 921032 

0.074746 

o.ooocoo 

0.074748 

■ 

0.0013046 

0.0300000 

0.0014560 

-0.0001516 

0.0000000 

0.0065592 

0.0127912 

4 

0.850012 

0.080822 

0.000000 

0.08C822 

m 

0.0014106 

0.0000000 

0.0014505 

-0.0000391 

0.0000000 

0.0074202 

0.0086195 

5 

0 . 758062 

0.081304 

0.000000 

0.081304 

m 

0.0014190 

0.0000000 

0.0013934 

0.0000256 

0.0000000 

0.0081734 

0.0061406 

8 

0.647446 

0.079289 

0.000000 

0.079389 

ft 

0.0013856 

0.0000000 

0.0013049 

0.000C807 

0.0000000 

0.0088136 

0.0050705 

7 

0.520888 

0.076165 

0.000000 

0.076165 

ft 

0.0013293 

0.0000000 

0.0011913 

0.0001380 

0.0900000 

0.0095697 

0.004748b 

9 

0.381534 

0.071829 

0.000000 

0 .071829 

N 

0.0012536 

0.0000000 

0.0010499 

0.0002037 

0. 0000000 

0.0097857 

0.0047268 

9 

0.232726 

0.066165 

0.000000 

0.066165 

■ 

0.0011548 

0.0000000 

0.0008598 

0.0002950 

0.0000000 

0.0099475 

0.0046069 

10 

0.078217 

0.058551 

0.000000 

0.058551 

■ 

0.0010219 

0.0000000 

0.0005201 

0.0005018 

0.0000000 

0.0096608 

0.0031973 

total 

0.070281 

0.000000 

0.070281 

■ 

0.0012266 

0.0000000 

0.0010305 

0.0001961 

0.0000000 

0.0002059 

.  PiTCMlNG  MOMENT  . 

...  LIFT  CENTER 

V  CMC 

CMMU 

CMT  CM 

« 

ft 

xcp/c 

XCL/C 

.993844  -0.003325 

0.000000 

0.000000  -0.003325 

• 

■ 

0.091763 

0.091763 

. *69372  -0.0C8643 

0.000000 

0.000000  -0.008645 

« 

■ 

0.146453 

0.146453 

.921032  -0.014778 

0. 090000 

0.000000  -0.014778 

• 

■ 

0.197701 

0.197701 

.850012  -0.017849 

o.ooocoo 

0.000000  -0.017849 

M 

• 

0.220845 

0.220845 

.758062  -0.018479 

0.000000 

0.000000  -0.018479 

M 

« 

0.227287 

0.227287 

.647446  -0.018190 

0.000000 

0.000000  -0.018190 

ft 

■ 

0.229127 

0.229127 

.520888  -0.017544 

a. oooooo 

0.000000  -0.017544 

* 

■ 

0.230347 

0.230347 

.38:504  -o.o:*6?6 

o.cooooo 

0.000000  -0.0166*6 

• 

■ 

C. 232458 

0.232458 

.222726  -0.015772 
.073217  -0.015890 

0.003000 

O.COOOOO  -0.015772 

ft 

« 

0.258368 

0.258368 

0.000000 

0.000000  -0.015890 

ft 

« 

0.271392 

0.271392 

TOTAL  -0.145988 

0.000000 

O.OCCOOO  -0.145988 

(APEX) 

2.077202 

2.077202  (X/CPEF) 

0.133806 

0.000030 

0.000000  0.133806 

(XMCJ 

0.544205 

0.544205  (X/8/2) 

ft 

•  ai 

TOTAL  AEfiobvNAWlC  COEFFICIENTS 

N 

»*• 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

ASE 

7  CASE  8  CASE  9  CASE  10 

CCLG 

0.0702811 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCLJ 

0.0000000 

c.coooooo 

0.0000000 

0.0009000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

»» 

CCL 

0.0702311 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

C  CDG 

C.CC12266 

0 . CC00300 

c.coooooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCDJ 

0.0000000 

o.oocoooo 

O.OOOCOOO 

O.OOOCOOO 

0.0000000 

0.0000000 

o.ocooooo 

0.0000000 

0.0000000 

0.0000000 

CCS 

O.0C1C305 

0.0000000 

0.0090000 

O.OOOOCCO 

O.OOOCOOO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CCD 

0.0001961 

o.ocooooc 

0.0303000 

0 . OOOOQCO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CDIT2 

0.0002359 

O.OOOCOOO 

0.0003000 

0.0C00300 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0. 0030000 

O.OOOCOOO 

■  m 

CCJ 

O.OOOCOOO 

0.0003000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

0.0000000 

0.0000000 

CCMG 

-C. 145*882 

0.00:0000 

0.0000000 

O.OOOOCOO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oocoooo 

0.0000000 

CC*J 

0.0000000 

o.oocoooo 

o.oocoooo 

0.0000000 

0.0000000 

8.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

CCMT 

o.ococooo 

0.0000030 

0.0000000 

o.oocoooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oocoooo 

0.0000000 

CCM 

-0.145*882 

0.0000000 

0 .0030000 

o.coooooo 

0 . COOCOOO 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

o.oooooco 

CXGP 

2 .0772021 

o.oocoooo 

0.0000000 

O.OOOCOOO 

c. 0000000 

0.0000000 

0.0000000 

0.0000009 

o.oooocoo 

0.0000000 

CXCL 

2.C772021 

c.occcoco 

O.OOOOCC9 

O.OOOCOOO 

0.0000300 

O.OOOOCCO 

0.0000000 

0.0000000 

o.oooooco 

o.ocooooo 

CXCPB 

0.54*2055 

0.0000000 

0.0000030 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

CXCLB 

0.5442055 

0 . OQQQOOO 

0.0000000 

0.0000003 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

CCMGMC 

0.1358062 

O.OOOCOOO 

0 . QQGOQCO 

o.oooccoo 

0.0000000 

0.0000000 

0.0000000 

O.OOOCOOO 

0.0000000 

0.0000000 

CCNJMC 

O.COOOCC9 

O.OCCOCCO 

0.0000000 

o.ooccooo 

0.0000030 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOCCO 

CCM7MC 

o.ooccooo 

0.0030000 

O.OOCOOOO 

o.oooocoo 

0.0000003 

O.OOOOOCO 

0.0000000 

0. 0000000 

0.0000000 

o.oooocoo 

MM 

'  CCMMC 

0.1358C62 

o.oocoooo 

0.0000000 

O.OOOCOOO 

o.ocoocoo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.coooooo 

cllg 

0.00C3000 

o.oocoooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.coooooo 

CLLJ 

O.COOOCCO 

0.0000003 

0.0000000 

0.0000009 

o.oooocoo 

0.0000000 

0.0000000 

0.0000000 

0.0000090 

o.ocoocoo 

ft 

CLL 

0.0000000 

0 . C003C0C 

0.0000000 

0.0000000 

0.0000000 

0.0000090 

0.0000000 

0^0000000 

o.oocoooo 

o.oooocoo 

CNJ 

o.coooooo 

0.0003000 

o.ocoooco 

o.oooccoo 

0.0000030 

0.0000090 

0.0000000 

0.0000000 

0.0000900 

0.0000000 

ft 

CNIMC 

c. 0000000 

o.ococooo 

o.oocoooo 

o.oooocoo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

o.oooooco 

ft 

CCT 

o.ococooo 

0.0000309 

o.oooocoo 

0.0003000 

0.0000300 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

CB3R 

0.C524014 

O.OOCOOOO 

0.0000000 

0.0000000 

0.0000000 

O.OOOCOOO 

0.0000000 

0.0000000 

o.ocoocoo 

o.oooooco 

CB3L 

0.0324014 

O.OOOCOOO 

0.0000000 

o.ooccooo 

0.0000000 

0.0000000 

o.ocooooo 

0.0900000 

0.0000000 

o.ocoocoo 

CBJP 

0.0003900 

0.0003030 

0. 030C000 

o.oooocoo 

O.OOOCOOO 

0.0000000 

o.oooooco 

0.0000000 

0.0000000 

o.ocooooo 

CBJL 

0.0:000:0 

0.0000000 

O.OOOCOOO 

0.0000000 

0.0000000 

o.ocooooo 

0.0000000 

o.oooocoo 

0.0000000 

o.oooocoo 

CBR 

0.0326034 

o.ococooo 

o.ococooo 

O.OOOCOOO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

C8L 

0.C524C14 

0.0000300 

O.OOOOCOO 

0.0000009 

o.oooocoo 

0.0000000 

0.0000000 

0.0000000 

0.0090000 

O.OOOCOOO 

CPMBR 

0.4610249 

0.0000000 

o.oocoooo 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

O.OOOOOCO 

CPMBL 

0.4610249 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.coooooo 

0.0009000 

•  the 
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C  OPEN. 


SCRAT 
IPEN  I 


tftful*  *SCrI#^‘  NEXT* 

HATCH  FILE  FOR  MATRIX  INPUT  TO  SOLN  ROUTINE 


V^Je*  *JTFLAP2.DAT*  . 
ORGANIZATIONS  'SEQUENTIAL ’ , 
ACCiSS5..:iE8UENTlAL^ 


C  OPEI 


C  OPEI 


REcSIoTYpI  i^VAR  _  . 

FORM*  'UNFORMATTED'. 

Wife'  ;85“® 

i  FILE*  ‘JTFLAP5.DAT *, 

ipfefe:*1'* 


STORAGE  DURING  MATRIX  SOLN 


i  scratIh^Vle  F& 

'Ml?'* u 


TEMP  STORAGE  DURING  HATRIX  SOLN 


iNIZ^TlkN^4 ’§EQu£NTXAL 1 . 

SllTYpfMSSkLds 


FORM*  •UNFORMATTED* 
STATUS*  SCRATCH’ I 


CAL 


AR^THE  SCREEN.  THEN  PRINT  HEADER 


PRINT  * 

PRINT  * 

PRINT  *,  ‘THE 

PRINT  *  ‘  - 

PRINT  * 

PRINT  * 

PRINT  * 


PROGRAM  JETFLAP  :  VERSION  3  :  31  JULY  68 


Jig 

1 — .l.f  f f  jj^i  (1 :  INF  I  L?_SIZE  )  »  EXIST  «  EXIST) 


im&r 


_END 


ft  JFT " 

rn  8: :  ««»•• 

RINT  * 

‘fTO  S 


^[P?£r1!I^ll^®*signal  ,xv*l  ,status 

OPEN  iyNIT=LUN, 


C  OPEN~F|LI 


)) 


mu-. 


STATUS*  ’OLD’  ) 

SE^j^RlgRiFREEN  0R  FILE 

*  Hiffi  RV?,T?1 8WS  ™  ™f  *““•  *  *  ™*» 

iPpANlfEqt'F' }  ThIn 

PRINT  * 

7  PRINT  * 

PRINT-* ,  .*  _iEtfffR_S23_TO-Kl L  » | 


sta; 


Mi  m 


C  CHECK 


;-J«c 


OUTPUT  fiU 
P  sin 


EL 


li,ioS§5 

»«,  •  I  OR 
* 

^ALL  QUERY  (NANS) 


SIZE)*  EXIST  *  EXIST) 


TgAT  FILE  ALREADY  EXISTS.' 

ENTER  999  TO  RETURN  TO  EXIT  OPTION).' 


END  lf°  T°  * 

IF  CNANg  .EQ.  1)  THEN 

ELSriF?MAM$  .EQ.  2  ITHEN 

ELSE  IF(  NANS  .EQ.  999  )THEN 
GO  TO  110 


109 


ELH^  2*  '  INVALID  RESPONSE  -  REENTER.1 
PRINT  *»  :  QATA  REIN®.  WRITTEN  to  FILE  1 


IT  FILE  .STATUS*1  UNKNOWN'  ) 
HEN 


Mint  *,  *  invalid  response  -  reenter.  1 

m  fejtf’* 00  Y0U  WSH  T0  0 


YOU  NISH  TO  OVERWRITE  THIS  FILE?  1  ■  YES (2  *  NO*  ) 


«  feWMI! 


)  AREA .SPAN .CRE  F .XHC »XCG 

NROHS .NCASES » ISYtfl  .IPRINT  , JETFLG .IGTYPE  .IHINGE  .IDERIV 


XC  *  XCi 
NRO  «  NRi 


ftr  J  P&S 

IPR  *  IPRINT 

p  t  mi 

IHI  «  IHINSE 

is  requireo 

So  W3p&$ih1u  BE  EXECUTED 

So  TO  I  SO  ,  70  ,  100  ,  120  ),  1R 

A  STABILITY  DERIVATIVE  RUN  WILL  BE  EXECUTED 
60  lF^R“ii:22)  60  TO  120 


THIS  RUN  HAS  BEEN  COMPLETED.  THANK  GOD  FOR  SMALL  BLESSINGS. 


LETION  MESSAGE  FOR  THIS  RUN  ANO  GO  BACK  TO  BEGIN  A  NEW  RUN 

T*^’  8Hached52n6rmal  TERMINATION  »/ 

A  TITLE  OR  AN  OLD  END  OF  CMU  CARD 
10 

MESSAGE  ANO  STOP  EXECUTION 


A  FATAL  ERROR  HAS  OCCURED.  PRINT  FINAL  MESSAGE  ANO  STOP  EXECUTION. 


SUBROUTINE  CLRSCRN 
LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
ItuRN*  LIB#ERASE_^ACE  11,1) 


SUBROUTINE  QUERY  (NANS) 


Dp": ■ 

NOTES?  «  NOTEST  *  1 


||t8rn5’,,’err*1,nans 

»•#*#*#** _ 

SUBROUTINE  APPLY 1 

THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  CALCULATION  OF  REGULAR  CASES 


C  DEC 


YPE  > I HINGE 


iFfi^YMM1 . LT . 


0)  NOALFA  =  0 


INIT|A£’[ZE_ANO  INCREMENT  THE  CMU  CASE  CONTROL  COUNTER 
20  NEHCMU  =  NEHCMU  ♦  1 


PROBLEM  FORMATION  STAGE 
401,  60  >  70  ,  80  ),  IR 


iyiGE«06LEM  SOLUTION  STAGE 
IF!  IR  .EQ.  2)  GO  TO  80 

Iftfll  |H|gA|ROOYNAMIC  parameter  stage 

SUCESSFULLY 


THE  PROGRAM 
GO  BACK  AND 

U'fflb1 


HAS  BEEN 


RETURN  TO  START  A  NEW  RUN. 
NO  FURTHER  RUNS  FOLLON. 


THIS  RUN  HAS  BEEN  COMPLETEO 
60  IR  s  2 
RETURN 

THIS  RUN  HAS  BEEN  COMPLETEO 
70  IR  *  3 
RETURN 

A  FATAL  ERROR  HAS  OCCURED.  RETURN  AND  QUIT 
80  IR  a  4 
RETURN 


C 

C 

c 

c 


c 

c 


END 

SUBROUTINE  APPLY 2 

STAilLirY°OERIVATIVESOLS  *LL  ASPECTS  0F  CALCULATION  OF 

’IKIMBE 

CHECK  ON  STATUS  OF  CONTROL  FLAGS 
10  IHINGE  a  0 
NOALFA  =1 
NENCIfJ  =  1 

IF! ISYMM  .GE.  0)  GO  TO  30 
ISYMM  =  0 
WRITE • 6.  20  I 

20  FORMAT. 1H0///16X,41HTHE  ISYMM  FLAG  INDICATED  AN  ANTX-SYHETRZC, 
1  48H  CASE.  HOWEVER,  IT  HILL  BE  TREATED  AS  SYMETRIC.  ) 

EXCECUTE  THE  FIRST  RUN 

FORMULATE  THE  PROBLEM  AS  USUAL 
30  CALL  STAGE 1 

GO  TO  I  40  ,  110  ,  100  ,  110  >,  IR 

ADD  THE  EXTRA  FUNDAMENTAL  CASE  FOR  DERIVATIVES  DUE  TO  PITCHING 
40  LOGIC  *  i 
CALL  STAGE4 

EXECUTE  THE  PROBLEM  SOLUTION  STAGE  AS  USUAL  FOR  THE  FIRST  RUN 


50  CALL  STAGE2 

IFIIR  .EG.  21  60  TO  110 

moM  mr™  sT"*  for  m  first  ■" 

60  CALLCST AGE3 

MmjtvMm  completeo 

WRITE! 6,  70  > 

70  FORMAT.  fe^^^^^i^^ir^RIVATIVE  CASE 

is  it  ,o  ™  «*  * 

40  LOGIC  «  2 


*  / 


111 


SET 


CALL  STAGE4 

AMO  SOLVE  THE  MATRIX  SYSTEM  FOR  THE  SECOND  RUN 


CALL  STAGE 2 

iFtlR  .EQ.  2)  60  TO  110 


JAjjC^AT^ANO  PR|NT  THE  DERIVATIVES  FOR  ALL  FUNDAMENTAL 
0)  IPRINT  *  2 


CIHHHHI 

C  THI 
100 

i-;y 

HE  1 

i 

■NO  OF  THE  i 

LINE 

110 


RROR  HAS  OCCURED.  RETURN  ABNORMALLY  TO  MAIN. 


RETl 
******* 


NO 


,IJC40> 


5 ROUTINE  STAGE 1 

CHCS^^85RiPiWfoFigST  cw  CAS€ 

I F ( ( NROMS  -GT.  40  I  .OR.  (NROMS  .LT.  3  U  GO  TO  60 

TeQ.  1 1  .OR. ( IGTYPE  .EQ.  2  )  (CALL  SGMAINf  NOALFA ,IR  I 
GO  TO  (  20  >  40  ,  100  i>  IR 

USER  INPUT 

zo^i^T  S&*}A!ST?ff AUSC  ieTVPE  MAS  m  "***  VALUE 


GO  TO  100 


_  REQUIREMENTS 
>>IR  I 

ro  ioo 


5&  AL  j^BLWIim  Jf  I F  LG ,  J  R  J 


"  sm»“‘ 


a|HS«  ,.  I. 


so 


^NORMALLY  TO  THE  CONTROL  PROGRAM 
“  TO1 130 


BECAUSE  THE  NROMS  VALUE  IS  UNACCEPTABLE 

..jus 

7HNR0HS  »,I3> 


MU 

me*** ***************** 

100FtrAi  f**<*  HAS  OCCUREO.  RETURN  ABNORMALLY  TO  MAIN 
GO 


TO  130 

THIS  RUN  HAS  BEEN  COMPLETED.  THANK  GOD  FOR  SMALL  BLESSINGS. 
MAIN  AND  BEGIN  A  COMPLETELY  NEH  RUN 
130 

MAIN  AND  STOP  THE  EXECUTION 


■!SE, 

ffi 


***** 


luS ROUTINE  SGMAINf NOALFA, IR I 

^?iS2rs5siT^R?}ia0ALL  eewETRY  calculati°ns  for  t« 

COMMON/MATHEH/NCASES ,ISY7M  , IPRINT , JETFLC , IGTYPE , I HINGE 
RgAD  JHEjJg^  PJjANFORM  GEOMETRY  DATA 

HTY|r.|4.3  )Y8Ail*XLETRH  IR  > 
fI IGTYPE’ .EQ.  2 )TCALL°XLETR2 
NgRMALIZjM^  MING  PLANFORN  GEOMETRY  DATA 

READ  THE  JET  SHEET  GEOMETRY  DATA 


1 1 2 


8 


ATA 

NOALFA.IR ) 
*  100 


30  JH“A>  TO  100 

CONSTRUCT  THE  EVD  ELEMENTS 
40  CALL  BOXSIIR) 

IFIIR  .EQ.  2)  GO  TO  100 

CONSTRUCT  THE  SET  OF  FUNDAMENTAL  GEOMETRIC  CASES 
LCASE  S  5  1>NCASES 

CONSTRUCT  THE  CASE  DATi 

PRI^([fAsfE^5!R5)A«gi?iVf:RVcoTE,0  CASE  0ATA IF  REQUIRE0 

i8o  $Si3s!acASE’ 

IR  =  2 
RETURN 

AN  ERROR  HAS  OCCURED.  RETURN  ABNORMALLY  TO  STAGE 1. 

100  IR  s  5 
RETURN 

SUBROUTINE  INPTSIIR) 

WTJB!TOi^Pflai^WH8BMm  0ATA 

COMMON/MARK/NROWS.NROWSJ  ,NWT  ,NJT .NMAX.NMI  40  I  ,NJ(  40  )  .INI  40 1  ,IJI  40  I 

C0MM0N/GE0M1/Y I 40  I  .CHORD!  40JiDEtf At  40  I >X8( 600  )  >XI( 600  )  .DEL!  600  I . 

. . . 

COMMON/INDAT/LUN 
DIMENSION  Nil  10) 

READ  THE  SECTIONAL  PLANFORM  DATA 
10  NWTYPE  _*  0 


8Emv&ii°, 


20 

SO  FORMA 


RiAOI^yN^lO 


12  I 

5  40  k  'i  l.NROWS 
flJCTYPEIK)  .GT.  NNTYPE)  NWTYPE 
OMTlNUE 

FI NWTYPE  .GT.  10 »  GO  TO  80 
EADILUN,  30  II Nil N  I, N*l, NWTYPE  ) 

REAgoTHS  CHORDHISEy DIVISION  DATA  FOR  EACH  ROM  TYPE 

ININ  .5T...20I)  GO  TO  100 


I  I Y I K  )  >K=1 .NROWS I 
6  )  I ICTYPEI K ) >K=1,NR0HS ) 


40 


»  ICTYPEI R) 


i ' <  xbni l  »N ) »l*i Inin i 


NIN  =  Nil N I 
IFIININ  .LT.  II  -OR. 

RE AD I LUN,  20  '  - 

Define  theenumber  OF  CHORDWISE  DIVISIONS  FOR  EACH  ROW 
DO  70  K  =  l.NROWS 
ICX  *  ICTYPEI K) 

60  NWIK  I  =  Nil  ICR  I 
70  CONTINUE 

RETURN 

AN  ERROR  HAS  OCCURED.  PRINT  A  MESSAGE  AND  GUIT. 

80  MRITEI6,  40  )  NWTYPE 

90  FORMAT I 1H1/45X.26HNUMBER  OF  WING  ROM  TYPES  s.ISI 
IR  *  2 
RETURN 

m  MING  ELEMENTS  PRESCRIBED  FOR  RON  TYPE, 13 1 

||turn 

SUBROUTINE  INPUTJt IR ) 


THIS  SUBROUTINE  READS  THE  JET  GEO 
FOR  THE  SECTIONAL  GEOMETRY  METHOD 


GEOMETRY  INPUT 


UadhA\ 

wot 


-  NWTYPE .NJ^YPE 

COMMON/INDAT/LUN 
DIMENSION  Nil  10 1 

OF  DIVISION  FOR  EACH  ROM 


,IJ(40) 


WPS 

|lljtTFLG0.NE. 
READ! LUN,  20  I 
20  FORMAT  1 401 2) 

DO  SO  K  *  l.NROWS 


0 )  GO  TO  90 
1 1 JTYPE l  K I  »K*1 .NROHS I 


113 


30  I 
REA 

uw 


JfIBI JI Y?E  1 K * 

QTXPE_iST1_10)  GO 


in  «“  «* ,,pi 

•!.A  11.12.)  DATA  f0R  EACH  Typ£ 

VixTa'.^iMV  "  T° 1M 

10.6  I 


RiAg  TH|  CHOfiDH 


NliV 

<NIN  • 


18  fffiil* 

DEFINE  THEKNUM|ERRgFsCHORDWISE  DIVISIONS  FOR  EACH  RON 

wiIjtvpi'- - 

A J1 

Fill :  8 


|K  )  ^E6.  0)  GO  TO  80 
NIIIJK) 

.  JR  ROW  CONSISTENCY  ON  EITHER  SIDE  OF  JET 
OUNT  =  X 


118 


!Cr. 


..  -..  -OHS 

FlNJilc  I 

MOTr! 

COUNT  =  X 

JIMIH 8111111  :  l 

’COUNT ICOUNT  ♦  1 
ONTINUE 
F I ICOUNT 
_R  =  1 

Return 


160 


•  LT.  3)  GO  TO  170 


THERE  IS  NO  JET 

9o  do  log  k  .s  i 


100 


8 


? JTYPE ( K  ) 
NJfJK  I  «  0 

RETURN 


=  6' 


FOR  THIS  RUN 
NROWS 


AN  ERROR  HAS  OCCURED. 

110  WRITE! 6,  120  )  NJ+YPE 
120  FORMAT! lHi/25HNUMBr" 


PRINT  A  MESSAGE  AND  QUIT. 
ER“OF  JET  ROW  TYPES  s,I3) 


E0«mj, 

us  Sftauusm 

170  HrIV|(6>190) 

190  EQRMAT! 1H1 >29H3  RON  CONTINUITY  RULE  FAILURE) 


JET  ELEMENTS  PRESCRIBED  FOR  RON  TYPE >13) 


RETUS 


RETURN 
END 

SUBROUTINE  XLETR1I IR ) 

THIS  SUBROUTINE  READS  THE  l 
AT  SPANWISE  STATIONS  CONNEt 
AND  INTERPOLATES  TO  GET  THI 


....  AND  TRAILING  EDGE  COORDINATES 
BY  STRAIGHT  LEADING  AND  TRAILING  EDGES 
COORDINATES  AT  INTERMEDIATE  SECTIONS 

IJI40) 


COMMON/MARK/NROHS ,NROHSJ,NWT,NJT,NMAX,NNI 40 )  .NJI 40 )  .IN! 40 ) >IJI < 
C0MM0N/GE0M1/Y  ( 40  ) , CHORD!  40 ) ,  DELT A!  40 )  >XB!  600  )  >XI  ( 600 )  >DELC  600 ) 
1  0! 40  I  .KK( 600  J.ITYPEI 600  ) 

CO510N/GE0M2/XLEAD ( 40 ) .XTRAIL! 40  )  ,TANLEI  40 )  ,TANTE(  40 ) 

COMMON/INDAT/LIPJ 

DIMENSION  YPI40 )  >XLE!40 )>XTR(40  ) 

READ  XLEAD  AND  XTRAIL 
NX  =  0 

DO  30  N  •  l.NROHS 

xo  iYP‘ N * ’XLC<  N » 'XTRI N * 

2°  j^!YPUJ)+.|T.  1.1)  GO  TO  40 

£SlECK*H&fTHfR  THE  Y  VALUES  ARE  REALISTIC 

40  BiliSi^UAioFr))  rrffliwlw 

■“w*  mm*” XNPUT 

THE  INTERMEDIATE  SECTIONS 


0  110 


INTERPOLATE  FOR  XLEAO  ANO  XTRAIL  AT 
„  D0;i8o  N  -  1,NX 


SO 


0001  >G0  TO 
K 


70 


114 


^Gg^TO.  100. 


XljE^ANO  XTR  MUST  BE  INTERPOLATED  FOR  ROM  K 

80  YRATION  *  (YIK)-YPIN))  /  I  YPINMl  l-YPIN) ) 

”  A0(  K  )  =  XLEIN.)  .♦  YRATWfl*  I  XLILNMl  JtXLIINJ  )  . 


8 


90  XT  I 

GO  . _  _  _ 
100  CONTINUE 


:AILIK)  =  XTR(N  I 
TO  50 


♦  Y RATIO  «  ( XTRI  NI11  KXTRI  N ) ) 


ETURN 


AN 


jp  0 


PRINT  A  MESSAGE  AND  RETURN. 


Hninm?1  ™  • 

SATURN 

END 

SUBROUTINE  XLETR2 


J(40I,KK 
COMMON/GEOM^/XLEADI  40 
COMMON/ .  . 


COMMON/IND AT /LUN 


),XTR 


NLEI 40 ) >TANTE( 40 ) 


C 

C 


8 


READ  THE  FUNDAMENTAL  PLANFORM  PARAMETERS 
READ) LUN,  10  )  ARATIO, SWEEP »TR 
MAT14F10.  ‘ 


10  FORMAT 


.6) 


GENERAL 

N  /  2.00 


PLANFORM  CHARACTERISTICS 


COMPUTE  THE  _ 

B2  =  SPAN  .  _ 

SH  =  SWEEP  /  57.295779 
20  CROOT  =  2.0  *  SPAN  /  I ( 1.0+TR  )»ARATIO) 

AREA  =  1 1.0+TR  I  *  CROOT  #  B2 

XLBZ  =  0.250  #  ll.O-TR)  *  CROOT  ♦  B2  *  TAN(SH) 

30  CMAC  =  2.0  *  CROOT  *  1 1.0  ♦  TR  ♦  TR*TR)  /  1 3.0*1 1.0+TR) ) 


IFICREF  .EG.  0.0)  CREF  =  CMAC 
CBAR=AREA/SPAN 


50 


COMPUTE  THE  LEADING  AND  TRAILING  EDGE  COORDINATES 
40  DO  60  K  =  l.NROHS 
YEAR  =  Y(K  I 

IF1YBAR  .LT.  0.0)  YBAR  a  -YBAR 
XLEADIK)  =  XLBZ  *  YBAR 
C  a  CROOT  *  1 1 . 0-1 1 . 0-TR  )*YBAR ) 

XTRAILIK)  a  XLEADIK )  ♦  C 
60  CONTINUE 
RETURN 

SUBROUTINE  NORM1 

THIS  SUBROUTINE  NORMALIZES  ALL  MING  PLANFORM  GEOMETRY  BY  SPAN/2 

COMMON/MARK. 

COMMON/ JOHN/ 


140) 


COMMON/GEOM1/YI 40 ) .CHORD!  40  )  .DELTA!  40 ] 

1  Dt  40 ) ,KK( 600  I  jITYPE! 600  I 

10  gOMMON/GEOM2/XLEAD(  40  ),XTRAIH40  )  >TANLE<  40  )  .T  ANTE  1 40  ) 

°  AREA  a  AREA  /'§2*»2 


CREF  =  CREF  /  __ 

20  XMC  =  XMC  /  B2 
XCG  a  XCG  /  B2 
DO  40  K  a  l.NROWS 
30  XLEADIK)  a  XLEADIK)  /  B2 
XTRAILIK)  a  XTRAILI  K  )  /  B2 
40  CONTINUE 
SPAN  a  2.00 

ARATIO  a  SPAN  *  SPAN  /  AREA 
RETURN 


IuEroUTINE  BOXS(IR) 

mh VSBtm  ?M£1n5h5e?E0METRIC  PARAMETERS  F0R  AU  THE 


HI  40  )»IJ(  40  ) 
XMC, XCG 
DELI  600), 


_ _ _ f/wn  cvtiu  it/ww 

1  NMTYPE.NJTYPE 

CONSTRUCT  THE  ELEMENTS  ON  THE  MING 

XLEADI 1 ) 

_  _  DELTA!  1 ) 

00  SO  K  *  2.NROWS 
20  CHORD) K)  a  XTRAILIK)  -  XLEADIK) 

OELTAIK )  *  riK-1)  -  YIK)  -  DELTAIK-1) 


115 


UggBU  8  JStack, 

30  CONTINUE 

!he?kd  IHf.W,™  KlIMF"*1  *LLIG"*MT 
I&JM  *;,«  M:  il^rfr  JrfVJUl.TtfB  *« 

8  SMtf  S’ffitfm 

][fI  ABs!yR-Yl1  .GT^O^oJoi  I  GO  TO  190 

taup*  * DiiuU) 


GO  TO  190 


COMPUTE ^ ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 

COHPUT  E^X-COOR^f NATeI 
L^l.NMK 

» 

COMPUTE  ALL  OTHER  PARAMETERS 

L  m  =  n  i 

0080  L  =  l.NHK 

70  pKVj'JxiEAgHO  l  $1(1)  #  CHORD)  K ) 


tom 


LAST  DEL  IN 
.00  -  XBII) 


THIS  SECTION,  AND  DEFINE  THE  L.E.  EVD  TYPE 


90  CONTINUE  . 

NWT  »  I  ■ 

CONSTRUCT  THE  ELEMENTS  ON  THE  JET  SHEET 


CWlK)'jEfkGC”NEDW5®E'^LfoE180WRAMETERS  F<*  EACH 


HMW 

100  NJK  *  NJIK 


OR^i NATES 


1°M° T0 170 


ns 

COMPUTE  ALL  OTHER  PARAMETERS 
I  *  I  -  NJK 
130  IJIK)  ■  I  ♦  1 
DO  160  L  =  1,NJK 
1=1  +  1 
140  KKI I )  =  K 

DELI  I  )  =  XBII+1)  -  X8(  I ) 

ISO  XIIIJ  f  XLEADIK)  ♦  XBII)  *  CHORD!  K ) 

ITYPEtl)  =  10 
160  CONTINUE 

REDEFINE  THE  LAST  DEL  AND  EVD  TYPE  AND  THE  0  VALUE  FOR  THIS  SECTION 
DEL) I )  =  1.0E10 
ITYPEII)  =  30 
OIK)  =  XIII)  -  XTRAILIK ) 

170  CONTINUE 
180  NHAX  =  I 

IF  INMAX  .GT.  600)  GO  TO  210 
NJT  =  NHAX  -  NWT 
IR  «  1 
RETURN 
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XTRAILIK) 


AN  ERROR  HAS  OCCURED. 
loo  FO^MAlf 1h1^38X,44H 

lhZ*h 


ED.  PRINT  A  MESSAGE  AND  QUIT. 

44HPLEASE  CHECK  YOUR  SECTION  LOCATION  IY)  INPUT) 


llo  FORMAT? 1H1/48X ,M?21H  IS  TOO  MANY  ELEMENTS) 

fF" 

SUBROUTINE  BOXJINEHMAX,IR) 

THIS  SUBROUTINE  COMPUTES  THE  JET  BLOWING  FACTOR  CMUP 

1  01 40 ),KKI  600 ),ITYPEI 600 ) 
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COMMON/ JCASE/CMUI 40 ) ,CMUP I 40 ) .CMUPPI 40 ) 

OMPUTE  THE  NEH  CMUP  AND  SAVE  THE  OLD  VALUES  AS  CMUPP 

.  NP"" 

0. 


Jo  MMAX  »  NMAX 


MPUTI 

NEKi 

ICO 


1 

s 

.E 


.NT 
10  K 

CMUPPI K » 

IFINJIK  ) 

tHaw" 

20  i?oumt5=  ICOUNT 
CMUP(K)  *  0700 
30  CONTINUE 


NROWS 
JMUPI K  . 


K ) ) 


♦  1 


xMtemssn”* 

TO  40 


*/41X»10l  4H**** )// 


PRINT  A  MESSAGE  AND  TRY  A6AZN. 


AN  ERROR  HAS  OCCURED.  _ _  _ 

H^^iESFi§KRgft?,KEN  1NPUT-  * 

ETURN 

TINE  T ANSI  TAN, X.Y.NROHS) 


SUBRL 
P  ANGLI 
IONS 


TANGENT  OF 
IE  OF  EACH  SI 


1!  SPo«W 


slo^ixr^lTyr.yl  r  =  IXR-XL  j 

eg  sw 

a  K 


TANI 40 )  ,XI  40)  >YI  40 1  > 
.YR.YL  I  -  . . 

I,  NROWS 


')•$&  u 


18 


JFIK  .GT.  1)  GO  TO  30 

She?  I 

9W 


LOPI XI KR )  ,XI  KL  )  ,  Yl  KR I ,  Yl  KL )  > 


CHEC 


wl 53 


.  Vjra  ^ 

a.  nrows)  go  T6 
3.  I  NRCWS-1 ) )  So 

51SIK+1)  -\SIK* 

p  GO^T^fbO 
(NROWSr?.) )  GO  TO. 


4IGHT 

Further  left  ano  right 


_mmw  ;p:  8:881!  8 18  118 

THE  TRUE  SHAPE  CANNOT  BE_ DETERMINED  -  GIVE  UP  AN 

_.J GO.|o^200„ 


>1 K I  ♦  SIK+in  /  2.00 

THE  RIGHTEDGE  IS  STRAIGHT 
150  TANlk  I  a  SI K  I 

THE6?!??  IdGE  IS  _ 

160  TANtKI  =  SI  K+l  I 
200  CONTINUE 
RETURN 

SUBROUTINE  INCASE I LCASE .NOALFA ) 


AND  TAKE  THE  AVERAGE 


STRAIGHT 


FUNDAMENTAL  GEOMETRIC  CASE  DATA 

40 )  »IMI  40 1  »I  Jl  40 1 


8!:mf^T 


*NHT 


INITIALIZE  SECTIONAL 
00  30  K  *  I .NROWS 
10  TSTlK.LCASe )  «  0.' 
HU  K»  LCASE 
OJIKl  *  0. 


»  _ 

_  .00 

ACTEIK)  *  0.00 
‘C|tjO  a  0 

INITIALISE *THE  CAMBER  ANGLES 

!  r-KL»« 

0.00 


00  50  N  *  1 .NROWS 


DATA 
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a  Mr 8  88 


IF(  ( LCASE  .EQ.  1)  .AND.  (NOALFA  .GT.  OH  RETURN 

»C^5^^uto  .inputc  > INPUTS 

KA*i " 11,1 whhhm* 

WO  M  0)  gS*?0L98’  70  1  ,HL<K»LCASe,*ll"l*N,WWS> 
OlsYiiSuf ^ f D  UraA^unnu  THE  DJ  ARRAY 


70 


ATA 

K^l, NROHS) 


1, 

j4' 

?inji8  )*.MT?Pgo  to  oo 


l'i CT 

*»  mm'h* 


EES 

NROHS ) 


S 


)  IACI L>N),L*1>NIN ) 
'.HWI  ?Eir m>  TO  150 

iso  m&:  UmKP' 

100  iffi.'ifTO,  NHT  .  IHT(K) 


ANO  TURNING  ANGLE  DATA 
NROHS) 


HI  ||P^®^'-lir,1FS,L’ 


N)»BET(L,N),L=1,4) 


SUBROUTINE  BEECEEI LCASE , NOALFA, IR ) 

mimnBMemv"  condition  awuvs  for  the 

jARF/NROHS,NROMSJ  jNHT  ^JN.  ,fI^40  , 


COMMON/Wu 

.COMMON/G* 


;E»wwaL  . 

INIIIAUZE  THE  BOUNDARY  CONDITION  ANGLES 

?iliT.LCKE  )**°o?8o 


NHT 


p^ursv,. 


1W®  t 

sm.'.1* 

. Cf 70)  THETA) K,l)  ■  i.000 


mtriK'tofmm* CAS£ 


DEFINE  THE  ANGLES  FOR  ALL  REMAINING  FUNDAMENTAL  CASES 
CAMBER  CONTRIBUTION 


US 


*0  IFIZgPVTC  .EQ.  0)  60  TO  110 
JfcHM  TfJ.'Wfc  TO  70 

to  te'^SEi  = 

1-‘IiTLKi  ift*0’  601090 


so 


I0.8?  *  , 

|PS(  I > LcIsE ) 


:?ik) 


ACIL.ICK) 


8 


lo8  CONTINUE** 

lOT.BWPJP'oi  60  TO  160 

Vhm  am.™  i2p 

'*  1$0+L  »  1,NNC 

JXASE)  >  EPSI Z , LCASE  )  4  TSTIK, LCASE) 


TSTIK, LCASE ) 


FLAP  AND  SLAT  DEFLECTION  CONTRIBUTION 
160  IFIINPUTB  .EQ.  0)  60  TO  320 

SUM  UP  THE  TOTAL  SLAT  ANGLE  ANO  FIND  THE  NUMBER  OF  HINGES  ON  EACH  RON 
NHI  sl»  0*  * 

IFIIHTIK)  .EQ.  01  GO  TO  190 
DO  ISO  L  —  If4 
170  N  *  IHTIKI 

IFIXHBI L.N)  .LT.  0.001)  GO  TO  ISO 


IHIK)  ■  NHIK)  4  1 

Fi^FS^UN)  .GT.  0)  TMSIK, LCASE  1  *  THStK, LCASE)  4  BET(  L>N) 

90  CONTINUE 

?BRPfi?HIHiNGiNiLE°E)^*CM  ELEMENT  ““  FIND  TURNING  ANGLE  AND  EVD  TYPE 


J80 


C0~310  K  *  l.NRONS 
NKK  *  NHIK 1 
N  =  1HT  IK) 

200  IFIN  .EQ.  0)  GO  TO  300 

ksIA8?o*  1 

NHK  a  NHIK) 


2i?cM|  Hff?GE°^ofNTS0IN62HO«DHISE  ORDER 

CYCL|  fil  CHORDHISE  ORDER,  LOOKING  FOR  NEXT  HINGE 


IFliFSILH.N)  -GT.  0)  ITYPEII1 
GO  TO  260 


1  4  B 

POINTS  BEHIND  THE  LAST  HINGE 


-  THStK, LCASE  1  4  B 

.  _ ....  _  _ _ _ a  61 

.^Kase 

m  tm*  1  -  im,ki  * 1 

^1mfe&r&ETS°§,8EMAININ6 

BO^S  L^  LSTART  >NMC 

280  C0§TI^8*SC)  "  EPS( I,LC*SE)  *  THSIK, LCASE)  4  B 
290  IFI NJYK )  2GT2CT0°FTHEf  A^TlCAsF)  ™THE?A<k7l£aSE  )-THSIK, LCASE  MB 

III  CONTINUE** 

JET  DEFLECTION  CONTRIBUTION 
520  TO  550 
|F^NJ(|K|)  ^  .EQ.  0)  GO  TO  340 
330  *  * 


340 


mturssmj  *®?+*  p+oooi )  iTYPEii) « 

f  HETAM4.LCASE  )  «  tHE t AIK, LCASE )  4  DJI  I 


<k? 


119 


1,0  !£?P!||l£5fcCTS  HAS  NO  JET) 

~~ fi f if 


!S§  Vg^iVf  IhS^Sx ’?SsS3gV‘  :IS!I§'4Abc«io . 

ASE  .  GT.  X)  GO  TO  2 
10  )  IXIIJJ+L? 


6 ,5X ,4HDJ  «, 


5rjV 

WR*- 

220  WR_. 
WRIT! 


230 


itt.S,  il6'  j  CXIIjj+LltLel.MJK) 

Jilil:  i|§  I  i  •*“ ' 

JJ  *  JJ  ^  NJK 

IftefiMu-  • 


2*1  L 


ViAi 11  m  2 

“  )  NEXT  «  NEXT  ♦  2*IL 


240 


IfclNMiL  . 

kj.Hvx?.1?1  11 

IF INJK1  ,E§.  0)  GO  T| 


2 

240 


250  FORMAT ? 1h 
ILINES  = 


*IL 

..  *  NEXT  ♦  2*1  L 
NEXT)  GO  TO  260 


260  aw 


lu&ROUTINE 


INCOMP INCASES, I R ) 


TM 

NH 

FOI 


XK_ 

iVx 


READS  IN  THI 

■  - r  a 


«E^24CC 


smm** 


ON  HAGNXTUOE 


8 


10,24)  ,NCC 
NO!  10) 


INI 


BZE  THE  A! 

R :  S:i 
BUT  * 

NUE 


ARRAY  OF  FUNDAMENTAL  CASE 
‘4 
0 

0.00 


OEFLECTXONS 


g m  data* 


CONSISTING  OF  FUNDAMENTAL  CASE 


1 NO!  N ) ,  FUNNY(  N )  ,N*1 , 10 ) 


_/INBlN)  .LT. 
THE  DATA  IS  OK. 

NON  *  NDIN) 

60  FACIQRI NDN,NCC ) 
90 


TO  70 
NE  FACTOR. 
FUNNY! N) 


18. FORMAT? iHOj 2^X, 76HAN  INCORRECT  COMPOSITE  CASE  INPUT  VALUE  HAS  BEEN 

_  l  found.  IT  will  be  ignored. i 


90 

i5oE 


8 


THE  INPUT  DATA  HAS  BEEN  REACHEO 
.GT?  24)  NCC  *  24 


COMPOSITE  CASES  HAVE  BEEN  REGUESTED.  READ  ON  UNTIL  AN  END 
110  NRITE!  6/120  ) 


BEEN  INPUT. 


GO  TO  30 


AN 

130 

140 


2  HAS  BEEN  READ. 

S//l IX,  35HAN  END  OF 
OMPOSXTE  CASE  INPUT) 


PRINT  A  MESSAGE  AND  QUIT. 

FILE  HAS  BEEN  READ  DURING, 


!|tuRN 

SUBROUTINE  BLOWN!  JETFL6,XR ) 


THIS^SUBROUTIN|  readme  ^ sectional  jet  bloning  rates 


MUIK)  *  J 

COrtlON/MARK/NRONS  .NROHSJ.NHT  »NJT  ,NMAX,NH!  40 )  ,NJI40 )  ,IMI  40 )  ,X  J!  40 ) 
COMMON/ JCASE/CMUI 40  )  ,CMUPI 40 )  ,CMUPPt 40 ) 


c 

c 


T/LUN 


A  JET 


8 

8 


_QR - fV:LT.  600.0)  60  TO  30 

RgARRANGg  THE  DATA  INTO  THE  PROPER  SEQUENCE 
D0  50>  *  l.NROMS 

ij^NJlV*  °J°  0)  go  to  so 

so  WU0*™”' 

RETURN 

AN  gNDOFJILE  HAS  BEEN  READ.  THIS  RUN  IS  COMPLETELY  FINISHED. 
70  FORMAT  I iHl///4IX,37HN0  MORE  CMU  CASES  HAVE  BEEN  REGUESTED) 

Seturn 

SUBROUTINE  STAGE 2 

TSIss?I?IRa8fc^seS5It58SATI0N  "* S0LUT10N  w 

COMMON/SPIRIT/  NEHMAX  ,  NENCMU >NOALF A > LOGIC » IR 

58*calI!es?g!5em  of  L1NEAR  e<wations 
I8lc!l[h!tS21tem  of  L1NEAR  e«mtions 

°  IFIIR.Iq:  2)  GO  TO  30 

THE  HA^fuLIAH5*^  BEEN  CQMPLETED-  RETURN  NORMALLY  TO  MAIN. 
*0  TO  40 


A  FATAL  ERROR  HAS  OC CURED . 

18  JItur? 


RETURN  A8N0RMALLY  TO  MAIN. 


END 


1ROUTINE  STG20 


^^lWrioht  side 

COtRION/MATHEM/NCASESflSYMM  ,  IPRINT  ,  JETFLG  .IGTYP 
COMMON/MARK/NRONS .NROHSJ ,NMT  ,NJT  ,NMAX ,NH<  40 ) >N 
COMMON/SPI RIT/  NEHMAX .NENCMU .NOALFA , LOGIC . IR 
DIMENSION  NI6I0) 


YPE. _ 

,NJ(40),IHI40),IJ«40) 


IF  THIS  IS 
ON  THE  JET 

PIZE  a  NEHMAX 


I NENCMU 

_  inehma: 
GO  TO  30 


A  NEW  CMU  CASE,  AUGMENT  THE  EXISTING  DOMMUSH  MATRIX  ROMS 
MAX 

IQ.  1 )  GO  TO  10 


FI NEHMAX  . GT.  NHT )  CALL  SHUFL2(M,ISIZE, NEHMAX) 


k^sH^alizEr-  'Ismi  •eT-  60  T0  50 


MIMWRfeV  D^I§®5y^:mY 


20  ?F?NMAX°.GTEPNH?  )^LraiL^I?2ir  CASES- 
SIDE  COLUMN  MATRIX 


T. 

.0, 


8 

8 


DEFINE^TH^LCASC^UMN,  NOT  INCLUDING  THE  INFLUENCE  OF  ANY  HINGES 

T°  « 

50  CON^INuf' 

AO  CALL  HINGE I N.ISIZE, NEHMAX, LCASE ) 

rarLTM^,8i^NiSM^b88lE^  lHFLUENCE  0F  ALL  HIM6ES 


122 


80  CONTINUE 


Tp8?  FOR  SOLUTION. 

IuSrOUTINE  DWNHSHIN.ISIZE ) 

Tais^^I^kW?§ET85R?8V^si^}SV8S  $?dnciEHT  MATRIX- 

TFLG.IGTYPE .IHINCE 

w&mirattrur 


COMPUTE  ALL 


THE 

.0 


DOHNMASH  COEFFICIENTS 


10 

CYC 


fm 

&I$f  rpp^Tm 

FIND! l’IHRITE 1 


TO  -  KING  -  AND  -  JET 
POINTS  ON  THE  KING  AND  JET 


DOFMHASH/) 


***  COMMENTED  OUT  BY  JAC  «* 


KI  s  KKI I ) 


CYC 


m 


VORTEX^POINTS  ON  THE  WING  AND  JET 

COMPUTE  ^HE  GEN^RAlV  OMETRIC  PARAMETERS 
KJ  =  KK(  J ) 

20  X  3  XIII I  ♦  DE  L 1 1  )*CHORD  ( KI  )/2 . 00  -  XKJ) 
YY  *  YIKI)  -  YIKJ) 

IT  *  ITYPEI J  )/10 


m  ifSk 


ONLY  THE  TRIANGULAR  PART  OF  HINGES 
IT 

42HAN  MVlJk'm&tWo MUftmWf' 


LfLAR  TRIANGULAR  |V0,  j  INCLUOING  TRIANGULAR  PART  OF  HINGE  EVD) 
INI  *  |h!Kg I  ’♦*NVI(  KJ  I  -  1 

k'i  AhM'iWhUr'"*'  *  CH0RD‘KJ) 

60  Ml  J I  .  -  " 

SUPERIMI 
SYMETRII 


Elf&ffi 


!i,5« 


_  *  I  ■  II  I  .  W  ■  .  0)  1 

YY  *  YIKI)  ♦  YIKJ 
70  WDUMI1Y.  a  Evr . 


DUMMY 
IFIISYMM 
GO  TO  140 


_ IKJ. 

,YM| T^C ffl JLeVt  SIDE  OF  THE  WING  IF  THIS  IS  A 


n 


..... . . . , _ iLTAIKJ  )  I 

PERlMPOSE  BQWNWASfi 
IFIISYMM  .GT.  0)  GO  TO  ISO 
YY  a  YIKI)  ♦  YIKJ I 
100  HDUMMY  *  EVD2I X,YY»D2 .DELTAIKJ  I) 
JFIJgYMM  .LT.  0)  NOUMMY  a  -NOUMMY 


IFIISYMM  .GT.  0  1  GO 
YY  a  YIKI)  ♦YIKJ) 


CHORD! KJ) 

,01,01 


KJ), DELTA!  KJ)) 
TO  150 


150  ??ViKnJI^!'iivfe8M''.JirfEa?,'!J  1 1 


IFIISYMM 
l£8  CONTINUE1 


J)  ♦  HDU-MY 


STORE  THE  OONNHASH  AT  CONTROL  POINT  I  ON  THE  DIRECT  ACCESS  UNIT 
160 


170 


_ ATI 1H1.38X, 

ISO  FORMAT ?{bS,55X» 
190  CONTINUE 
RETURT 

THE 


GO  TO  190 

43HJETE-66u!7-  ?0  -  WING  -  AND  -  JET 
1MMATRIX  R0H,I4,60(/1X,10E13.5) ) 


OOMRUSH/) 


ffMHBmnWIH  IBS  SS8! 

FUNCTION  EV01(X,Y,01,02, DELTA) 

THIS  FUNCTION  CALCULATES  THE  DOWMASH  AT  ANY  POINT  X,Y 


OS) 

OS) 


123 


Evo  elememt  w™  unit  peak  vorticity* 

R(A,B)  a  SORT I  A* A  ♦  B*B  ) 

CAL^ULATE^THE^BASIC  GEOMETRICAL  PARAMETERS 

Ip, lisf  bsM 

XPQ  a  X  ♦  01 


R 


iffilSI 


10 
20 

30 

R1PP  a  R _ 

•  XMO  »YP! 

SHfttp.w 

part!  *  ( •— 

50  PArU°»X« 

AO  PAR?1  a  YM0»AL 

70  fm  l  HS  S  ft 

PART?  a  yPO_*.  ALi 


iSH 
»  (( 

«  (I 

iPPl  ✓  .  ... 

SttSI! 

%\lM 

IGMXMP+R 
‘  +R 


mm  -  mmm\ 


» 

80  fcVDl  a  -(PIRT1  ♦  rPARTl  ♦'PARTS 
1 _ -(( PART 6  -  PART? )/0l  ♦  (PAR 

IBS  -'«« '  »•«*» 

NO 

UNCTION  EVD2(X,Y,0EL,0ELTA) 


M0+R2P)/(YI 
PJ/( X+ROP ) ) 

PP )/( X+ROPP ) ) 
P  )/( X*ROP  I ) 
PPJ/I.X+ROPP 

its" 


mi; 


ySat!8( 


MRT9*/D2  n 


/  25.13274 


108 


DIMENSION  SI( 9 ), FACTOR! 9 1 
*ILi*A.t  B*B ) 


0.0, 

0.3302394, 


BWl 


THI 

yJ 

tpd  =  y|t* 

2°  gJxS  Y|tT 

bM.WWJ. 


50 


60 


BASIC  GEOMETRICAL  PARAMETERS 
DEL 


TO  100 
TO  80 


GO  TO  280 

XMl  a  XB  -  1.00 

58 

CALCULATE  RK(XB) 

IFIABS(XB)  .LT.  1.0E-04 1  GO  TO 
IFJABSIXMl)  .Lt.  i.0E-06l  GO  T 
PART  =  ALOG( ABSI XM1/XB  * ( 

PARTI  =  XB  *  PART  ♦  1,00 
IFIXS  aSI*  0.00)  SO  T6  70 
SOX  a  SORt(-XB) 

RK  a. -2.00  /SQX  *  ATANI l.OO/SOX)  ♦  PARTI 

» | ?Jhiu 

GO  TO  90 

80  RK  >  2.386294 


( 1.00 -SQX)  /(1.00+SQxm  /  SQX  ♦  PARTI 


’WtS?  - 


ROPP/YPO 


100 


i&fm  m,  go  to  u. 

XB  is  NOT  HITHIN  THE  X  DIMENSIONS  OF  THE  ELEMENT. 


0.00 

DO  140  N  a  X 

120  SB  a  (SIINI4 
XMS  a  XB  -  ' 
GS  *  GISB) 
130  PART* 


?001 


/  2.00 


140 


XB 

150 


F  a_ 


*  F 


tm 


IS  HITHlN  THE 
FO  a  0.00 
GPX  *  0.00 


( 6S*( R( XMS , YPO J-ROPP )  J/YPO 


X  DIMENSIONS  OF  THE  ELEMENT.  CALCULATE  FO. 


124 


GPPX  *  0.00 

K'P«-)1)  “ T0  170 

GPX  *  GX  #  IABSIYMD)  -  ROP) 

GPPX  =  GX  *  (ABSIYPO)  -ROPP) 

LCULATE  FI  BY  GAUSSIAN  INTEGRATION. 


=  bA  »  \ Iru  I  -  KU 


i5W!'S.5i w  s" 

DO  250  N  a  1,9 


uu  csv  n  *  ii7 

180  SB  =s(Sj(H)|i.00l  /  2.00 

190  U?ABSj'xMS ).LT.  1.0E-04)  GO  TO  220 

88  lift :  ^ 

220  £Xrt2  =4|<  YHO )  -  SIYPD)  -  PART 2 

230  l  Pa8? 4**°PART5 

111  FACT0R,m  *  P*RT6 

I?^^^O^YF^5.S8e/?pF8,i15NJ-9  F )  /  18.84956 

280  EVD2  =  -I 1.00/YMD  -  1.00/YPD)  /  6.283185 
RETURN 

FUNCTION  EVD3I X,Y >DEL ,0, DELTA ) 

.WiW^N 

R(  A,B)  3  SORT  I  A*  A  ♦  B*B  ) 

CALCULATE  JHEgBASIC  GEOMETRICAL  PARAMETERS 
ymdY*y-  deltay  ’  ’Y 

0  YPD  =  Y  ♦  DELTA 

20  PARTI  =  *DEL/2.00  ♦  0)  *  (1.00/YM0  -  1.00/YPD) 

CHECK  ON  INFINITY.  .  . 


RSA  j  *  Sn^T? " °°  *  01  *  <1-00/YM0  “  1.00/YPD ) 

( IXPD/YMD ll*2  .GT.  1.0E061  GO  TO  160 
01  =  X  ♦  DEL 


Check  On  infinity 

IF!  IXPO/YMD  >**2  .1 

SpoDi  bht DEL 

ROP  =  RlX.YMD) 
ROPP  =  RIX.YPD) 

30  RIP  =  RIXPpi.YMD) 
R1PP  *  RIXPDLyPD 
ROP  »  RIXPD.YMD) 
RDPP  a  RIXPO,YPO) 


soM  j  8cSffpS3.M?)f^E^  r.miBWflSSiW, 

60  part!  =  yp8/8|l  *  al88!  !  xppi+RiPiM/*x*8of!|J  )  ) 

70. FO  *  PARTI  =.Or50«PARI?.i. PARTS  -  (X0«1.00 )*PART4 


-  0.50*1 


*  ALOSl I XPD1+RJPP  I/I X+ROPP  )  ) 
50*PART2  ♦  PARTS  -  (X0+1.00  )*PART4 
PART5-PART6 ) 


C“fVtt5!  rXPp/D)  .LT.  1.0E-02)  GO  TO  130 


IFI ABSIXPD/D) 

X  IS  NOT  NEAR  -D 
Q  =  0/XPD 
80  PARTI  =  -D  *  Q  *  (1.04 
PART 2  =  Q  *  PART?  „ 
90  PARTS  a  S  »  0  *  ALOGI, 
100  PART4  =  YMO/RDP*ALOGI , 

\k  ffPpAR^TOl^l 


1 1.00/YMD  -  1.00/YPD) 


RDPP-XPD ) ) ) 


i  MM 


ROPP%R^Yy88) 

llf! :  teisi11Sl!Sgll?tl!:S8W'K 

140  FI  a  -0.50*PART2  -  0.50*( PARTS  -  PART4 ) 
CALCULATE  THE  DOHMASH  INFLUENCE  COEFFICIENT 

150  EVD3  a  .(FO  4  FI)  /  12.56637 
RETURN  __ 


Return 

EVDS  a  -PARTI  /  6.283185 

Return 

FUNCTION  EVD4IX,Y ,01,02, DELTA) 


aAgLE 

LOCATED  AT  THE  ORIGIN  0,0 

DIMENSION  SII9), FACTOR!  9) 

RIA,B)  =  SORT! A* A  J  6*8) 

CHANGE(A,6TC>  =  0.50  «  1C  •  IB-A)  4  (A48)) 

S(  A  )  a  ABSI  A  )  /  A 

SOI T  )  *  0.50  •  I -01L/D1*(1. 00-SIT))  4  D2L/D2*I  l.OO+SI T ) ) ) 


125 


6(A)  *  ALOGI ABSI A  )  l  -  SOI  A)  *  A 

DATA  SI/-07 |6gl|02 , -0 . |S|OU j , -0.6135714 , -0 . ||42Sg4^0 . 0 , 
.DATA  FACTOft7i:o|||f44 JO . ,6T ||06 Jof ,  jj ! iff ^0 . 33t 


;8 :  xiolili  :8 :  &f  Ifu;0  • 5502X94  * 


CALCULATE  JHE^BAgJC +GggMETRICAL  PARAMETERS. 
10  XB  *  xV  0 1 

20  *  v  -  IIlta 

30  X9  :  hiMlV 


VrCdStfl*' 


l  Sip5 


40  will  slcrcm  ;  um,i«oiL  ♦ 

Cklim  SK’t.I.  60  TO  70 


D2«D2L ) 


=1,100,2 


RKN  =  0.000 
DO  50  N2  *  1,2 


N  a  N  ♦  1 
RN  =  N 

RUN  *  N  »  IN+1) 

RKN  =  RKN  ♦  1-1.0  )»*IN+1 )  *  ( D1L/RNN  -  1.0/1  RN«RNI)  *  01X**N 
♦  I P2L/RNN  -  1 . 0/1 RN*RN ) I  *  D2X**N 
CONTINUE 


RK  *  RK  ♦  RKN 

„  IF! ABS( RKN/RK )  .LT.  1.0E-07)  GO  TO  190 
60  CONTINUE 

70  IF(  AX|(  AT.  1.0E-04)  GO  TO  200 


AT.wxxr  .hi,  ,,  WL-yd  )  GO  TO  90 
RK1  =  ( ALOGI  ABBi XOI ) )  +  IXD1+1.00)  *  DID  *  ALOGI  ABSI XPD/X )) 
RK2P  *  ABSI XD2-1.0Q  ) 

IFIRK2P  .LT.  1.0E-06I  GO  TO  100 

MIJs  ww  • 


SX  a  SIX) 
RKI  a  0.0 
RK2  a  0.0 


RK1P  a  ABSIXD1+ 
80  IFIRK1P  .LT.  1.1 


FIRK2P  -LT.  ! 
K2  a  -I  ALOGI 


c  ue 

a ;  1l2% 

118  RkI  =HRK^*A^i?VdRfm  ’»  I  ALOGI  T  I  /  I  SX»T  )  ) 

130  CONTINUE 

_  RK3  a  0.50  »  IBL-AL)  »  RK3 

c  iSHWabI  •  te-1T08r.LT .  WOTfe 


TO  180 


IIN) ) 

IN)  »  I  ALOGI  T )  /  (SX-T)) 


•IBL-AL)  «  RK4 


>67401  * 


-  I01L-! 


-'•R^/YMO  -  RO^/YPOTS 

aT8.^° 


♦  I  RKI  ♦  RK2 )  ♦  I RK3  ♦  RK4 ) 


ALCULATE  FIX)  BY  GAUSSIAN  INTEGRATION ,  . 


DO  240  N  a  1.9 
220  SY  «  CHANGE  I  Al.BL.SIIN)) 
XnS  *  X  •  SY 


c  ««|jr  *  fl 


-AL)  *  FL 


DO  270  N  >  1.9 
250  SY»  CHANGE! AL,BL. SSI N)) 

XMS  *^X  -  SY 

260  PARTI  aSGS  *  I RIXMS.YMD )-R0P )  /  YMD  -  GS  »  IR(XMS,YPD)-ROPP)  /  YPD 


on  nnonnn  o  nnnnon 


FR  *  FR  ♦  FACTOR!  N)  *  PARTI  /  XMS 
270  CONTINUE 

FR  »  0.50  *  IBL-AL)  *  FR 
280  F  a  FL  *  FR 
GO  TO  460 

X  IS  WITHIN  THE  DIMENSIONS  OF  THE  ELEMENT 
CALCULATE  FQ 
290  FO  *  0.00 
GPX  =  0.00 
GPPX  =  0.00 

IFIAXS  .LT.  1.0E-04)  GO  TO  310 
gOX_=  Sg!X)  -  1.00/X 

GPX  a  GX  *  I ABS!  YMD )-R0P 1 
GPPX  =  GX  *  (ABSIYPD)-ROPP) 

IF! 1 1 1.00-XQ2^.LT.  1.0E-06)  .OR.  (1X01*1.00)  .LT. 
300^0  a  -lIpX/YMD1-  GPPX/YPD )  *  ALOGI ABS! XMD/XPD ) ) 


1.0E-06)) 


BL  =  0.00 

320  SY^l^&IGI^L .BL ,SI!N)) 


330  PART 
340  PART 


IF I ABS! XMS/DB )  .LT.  1.0E-04)  GO  TO  350 
GS  a  61 SY  I 

-  I  GS  #  (R(XMS.YMO)-ROP)  -  GPX)  /  >MS 

(GS  *  ( R( XMS.YPD  t-ROPP )  -  GPPX)  /  XMS 
a  PART2/YMD  -  PARTS/YPQ 


PART. 

GO  TO  360 
350  PART 2  =  ROP/YMO  -  ROPP/YPD 

PART4  =  ( S( YMD  >  -  S( YPD  I  -  PART2 )  »  SOX 
FL  =  FL  ♦  FACTOR! N )  *  PART4 


m 


RIGHT 
380  FR 
IL 


OTMo  «  .BL-AL,  •  FL 
INTEGRAL 


S^oo 
$2°° 


400  . 

410  PAR 
PAR 
GO 


It 

SY 

XMS  =  * 

Is 


DO  440  N  a  1,9 

390  SY  a  CHANGE!  AL.BL.SKNI) 

XMS  “  X  *  SY 

"Fl ABS! XMS/DB)  .LT.  1.0E-04)  GO  TO  420 
SY) 

a  ( Gi»  *  i  m  Aric.yru  i*«uri 
=  PART 2/YMD  -  PART3/YPD 

420  PART 2  =3R0P/YMD  -  ROPP/YPD 

PART4_=  ^S^MDr!.r.  SIYPBJ_r.PART2  )  *  SOX 


*  ( R( XMS  »YMD )-ROP  )  -  GPX )  /  XMS 

*  I  R(  XMS.YPD  l-ROPP  )  -  GPPX)  /  XMS 


TOR(N)  *  PART4 


f  (BL-AL)  *  FR 


430  FR  a  FR 

440  HTOIo  *  !  BL 
450  F  a  FL  ♦  FR  ♦  fO 

CALCULATE  THE  DOWNWASH  INFLUENCE  COEFFICIENT 
460  EVD4  =  I  PARTS  *  PART6  ♦  P  ♦  F)  /  19.739202 
RETURN 
END 

SUBROUTINE  SHUFLKW.ISIZE  ) 

THIS  SUBROUTINE  READS  THE  PORTION  OF  THE  DOWNWASH  MATRIX  WHICH 
CONTAINS  THE  DOWNWASH  DUE  TO  THE  JET,  AUGMENTS  IT  ACCORDING  TO 
THE  CURRENT  CI1U  VALUES,  AND  WRITES  IT  BACK  ON  UNIT  1 
BEHIND  THE  DOWNWASH  MATRIX 

COMMON/MATHEW/NCASES .ISYMM , IPRINT , JET  FLG , IGTYPE , IHINGE 
C0I1M0N/MARK/NR0WS  .NROWSJ  ,NWT  ,NJT  .NMAX.NW!  40  )  ,NJI  40  )  ,IW(  40 )  ,IJ(  40  ) 
C0MM0N/GE0M1/Y ( 40  )  .CHORD l 40  )  ,0E LT A!  40  )  ,XB! 600  )  ,XI ! 600 ) . DELI  600 ) . 

1  01 40  )  ,KK( 600  )  »ITYPE( 600  I 

COMMON/ JCASE/CMU! 40  ) .CMUPI 40  I  ,CMUPP( 40 ) 

DIMENSION  A! 600 ) ,AIMl( 600  )  ,H< ISIZE ) 

NWT1  «  NWT  ♦  1 
FIND! 1 'NWT1 ) 

IF! IPRINT  .LT.  0)  WRITE! 6,  10  ) 

10  FORMAT! 1H1.42X.36HAUGMENTED  PORTION  OF  SOLUTION  MATRIX/) 

PREPARE  THE  SOLUTION  MATRIX  FOR  ROWS  ON  THE  JET 


THE  COUNTER  FOR  IDENTIFYING  ELEMENTS  ON  THE  JET 
THE  COUNTER  FOR  DOWNWASH  ROWS  ON  THE  JET  STOREf 


_ OUNTER  FOR  DOWNWASH  ROWS  ON  THE  JET  STOf 

THE  COUNTER  FOR  AUGMENTED  ROWS  TO  BE  WRITTEN 
«  NWT 

_  ■  NMAX 

a  0.125000 
*  0.375000 
150.1  «  NHTl.NMAX 

p|  a  |  ♦  l 

WRI?E**1IWR?TE  ♦  X 
,  «  KK1 1 ) 

READ  THE  ITH  ROW  OF  THE  DOWNWASH  MATRIX  ! IREAOTH  RECORD) 


_D  ON  UNIT 
ON  UNIT  1 
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I 


40  REA0I 1'IREAD)  N 

FIND  THE  PLACE  TO  WRITE  THE  ITH  AUGMENTED  RON  I IWRITETH  RECORD) 
FINDll'IHRITE)  ***COMMENTED  OUT  BY  JAC  * 


SAVEolEo  fflW"  0F 

AIJ)  s  NIJI 


SIMPLE  DONNMASH  COEFFICIENTS 


SO  CONTINUE 

SUBTRACT  THE,  PREVIOUS  ROM  FROM  THE  PRESENT  RON  IF  THE  DOHNHASH  POINT 

IS  M=Ac^?^ VIIlU^horo.  K  ) 

60  *  *^0RD"° 

TO 

70  CONTINUE 


mDifFw%^KmK  wq 

teo§2REGULi 

S[I,M  ='  wi’ipu  VciP»°PRODiPROD2 1 


NTS  FURTHER 
iR  JET  ELEMENT 


«y® wv  fS'sr.iSo?" 

HIIP1)  3  HIIP1)  ♦  Cl  *  PRI 


GO  TO  110 

DOWNWASH  CONTROL  POINT  IS  ON 
100  WIIMl)  =  WIIMl)  ♦  Cl  *  PRl 


N  A  LEADING  JET  ELEMENT 
R001 


WIIMl)  =  WIIMl)  ♦  Cl  *  PROD2 

Nil)  *  HII)  ♦  B  *  PR0D2  ♦  CMUPIK)  *  D(K ) 


N  A  TRAILING  JET  ELEMENT 
R0D2 


STORE  THE  AUGMENTED  ITH  ROW  ON  UNIT  1  I IWRITETH  RECORD) 

110  WRITE! 1  IMRITE I  W 

FIND  THE  PLACE  TO  READ  THE  NEXT  DONNMASH  ROM  IIREAD+IST  RECORD) 

FIND! 1 'IREAD+1 ) 

PRINT  THE  AUGMENTED  PORTION  OF  THE  MATRIX 
IFIIPRINT  .LT.  0)  WRITE! 6.  120  )  I,W 
120  FORMATUH0.55X.10HMATRIX  ROM>I4,60(/1X>10E13.5)) 

SAVE  THE  ITH  ROW  FOR  USE  AS  THE  1-1  ROM  ON  THE  NEXT  PASS 
130  DO  140  J  =  1»NMAX 
AIM1IJI  3  AIJ) 

140  CONTINUE 
ISO  CONTINUE 
RETURN 

DIRECT  ACCESS  UNIT  1  NOW  CONTAINS  THE  FOLLOWING  - 

MING-DUE -TO-MING-ANO- JET  DOWNWASH  COEFFICIENTS  INMT  RECORDS) 
JET-OUE-TO-WING-AND-JET  DOWNWASH  COEFFICIENTS  INJT  RECORDS) 

JET -DUE -T O-WING- AND -JET  AUGMENTED  OOMNMASH  COEFFICIENTS  INJT  RECS) 

SUBROUTINE  SHUF  L2 1 M , ISIZE >NEMMAX ) 

THIS  SUBROUTINE  REAOS  EACH  MATRIX  ROM  CORRESPONDING  TO  A  DOHNHASH 
CONTROL  POINT  ON  THE  JET,  MODIFIES  IT  ACCORDING  TO  THE  NEW  VALUES 
OF  CMU,  AND  RESTORES  IT  IN  ITS  ORIGINAL  PLACE 

COMMON/MATHEM/NCASES.ISYMM.IPRINT.JETFLG.IGTYPE.IHINGE 
COMMON/MARK/NROWS .NROWSJ .NWT .NJT.NMAX ,NW!  40  ),NJ( 40  ),IM<  40  )  ,IJ(  40  ) 
C0MM0N/GE0M1/Y 1 40 ) .CHORD 1 40  1  ,DE LTAI  40 ) ,XB( 600 ) ,XI 1 600 ) , DELI  600 ) , 


uunnun/ocuni/  1 1  nu  ,  lunuxui  tu  iiscliki  >  >Ao  l  ouu  I  .All  OUUI.UCLI  ouu  I 
1  Dl 40  I  »KK( 600  )  .IT YPEI 600 ) 

COMMON/ JCASE/CMUI 40 ) .CMUPI 40 ) .CMUPPI 40 ) 

DIMENSION  Ml ISIZE  ) 

IFIIPRINT  .LT.  0)  WRITE  1 6,  10  ) 

10  FORMAT) 1H1.42X.36HAUGMENTED  PORTION  OF  SOLUTION  MATRIX) 

CYCLE  THE  AUGMENTED  MATRIX  ROMS 
IREAD  3  UMAX 
NtITl  »  NWT  ♦  1 
00  100  I  =  NWT1.NEWMAX 
IREAD  3  IREAD  ♦  1 
FIND! 1'IREAD ) 

20  F!  5  f  i* 1 

30  CMUDIF*  =ICMUPIK)  -  CMUPPIK))  «  CHORD! K) 

REAR  THE  ITH  AUGMENTED  MATRIX  ROM 
40  FIND*  I1  IRE  AD)’  " 

MODIFY  THE  TWO  OR  THREE TgP|gIAL  ELEMENTS  ACCORDING  TO  THE  NEW  CHU 

IFI|  ill:  IIJIK)n8iK)-1 ))  GO  TO  70 
DOHNHASH  CONTROL  POINT  IS  ON  A  REGULAR  JET  ELEMENT 
50  WIIMl)  3  WIIMl)  ♦  0.1250  *  DELIIM1)  *  CMUDIF 

mr>  CMUDXf 

S?I^oxS  ELEMEMT 

CO  TO  60  M(m,  *  °'125°  *  Mu  IT*  CMUDIF 
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Wl  I )  =  Mil)  ♦ 


( 0. 3750*DEL( IM1 )  4 
TOW  ON  UNIT  1 


DIK  )/CHORD(K ) )  «  CMUOIF 


ITH 
H 


90  foRMATI 1 HO  > ksx  , SoHMA^RIX^ft OW » 14 » ^6^/lX > 10E 13 . 
100  CfJTINUe 

“ROUTINE  COLUMK  (.CASE  ) 


5)) 


THIS  SI 
CONS" 


IDERATION 


SETS 
F  ANY 


UP  THE  RIGHT 


HINGE  'OOHNWASJTSnFLuI-NCE 


MATRIX  WITHOUT 


1  Dl 40 )  ,KK( 600  )  iItYPEI 600  ) 

Sffla®f5!«riSif88i10l'“T‘'“o>!,>'  . . . . 


40) 

)» 


) )  tTHETAI  40 ,10 )  ,THSI  40,10) 


DEFINE  THE  ELEMENTS  ON  THE  WING 

|?liLCAsi)1=NEPS(I,LCASE)  /  57.295779 
10  CONTINUE 


DEFINE  THE 
jr=-NNT 


JO  40  K  =  1 
NJK  =  NJI  K  l 
IFINJK  .Eg 


ELEMENTS  ON  THE  JET 
NROMS 


.  0) 

MENT 


60  TO  40 

FIR|TaJ|T+gp— 

KKI  =  KK(  1 ) 

20  B(I.LCASE)  =  THETA) KKI , LCASE  ) 
REMAINING  JET  ELEMENTS 
DO  3g  L  =  2, NJK 


■  Lkiuc  i  -  incmiMkituMc  i  /  57.295779 
INS  J 
'  30  L 
1  =  1  +  1 
B(  I,  LCASE)  =0.00 
30  CONTINUE 
40  CONTINUE 
RETURN 

luBROUTINE  C0LUM2 1 H , ISIZE .NEHMAX , LCASE  ) 


THU 

TO 


>  SUBROUTINE  ADOS  THE  APPROPRIATE  HINGE  DOWNWASH  INFLUENCE 
rHE  RIGHT  SIDE  COLUMN  MATRIX 


NWI40 )  ,NJ(40 )  ,IW(  40  1,IJ«> 
,XB< 600  )  ,XI( 600 ) , DELI  600 

_  _ /E PS (  6od  ,  10 1 t A(  600  ;  10  )  .THETA!  40 , 10  )  ,THSI  40 , 10  ) 

COMMON/ JCASE/CMUI 40  ).CMUP(40 ) .CHUPPI 40 ) 

CCtlMON/SOLVl/BI  600,10 ) 

DIMENSION  HI  ISIZE) 


JI40) 
)* 


DEFINE  THi 

00.10. 


-bbJWK 

DEFi^N^LEgsNT«  ma 

20  — 

--(NJK  .EG.  OJ 


THE  WING 
LCASE)  -  HU) 

JET 


IFINJK  .EQ.  0)  GO  TO 
COMPUTE_THE  CMU  INFLUENC 


.0001)  GO  TO  50 


-  90 

.. _ ENCE  FACTORS  HI  AND  H2 

r»s 

30  02A=”dEUI^  *  CHoIdUU 

PROD  s^-CMUPlV)  *  D2  »  BTA  /  3.141 
HI  =  PROO  *  (1.6931472  -  0.750  *  0 

poM  WAfl8*4  -  8-*go  *  * 

1  >LCASi  )_=  B.I.I ,  LCASE  )  4 


5927 
L  ) 

t) 


mPm 

HI. 


HI 


4  H2 


60  B( I, LCASE)  =  BU, LCASE)  4  HII-l) 
REMAINING  POINTS  ON  THE  JET 
IFINJK  .LT.  3)  GO  TO  90 
00^80  L  =  3, NJK 

70  B(I,  LCASE)  =  B(  I,  LCASE  )  4  H(I-l) 

80  CONTINUE 
90  CONTINUE 
RETURN 

luBROUTINE  HINGE ( H, ISIZE ,F«HMAX, LCASE) 


I?*fAl«B88aKSlHc|feS¥fe§Ictom  B8lf^s2L£NSkV|^8lES35Siiitf5||NTs. 

COMPLETE  HINGE-INDUCED  DOWNWASH. 

COMMON/MATHEH/NCASES,ISYMM,IPRINT,J£TFLG,IGTYPE,IHINGE 
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1 


1  01 40  )  iKKl 600  )  «lTYPcl  600  I 

SlMENSIONAH? Isllf  )  °°  ,*° 1  *“ETA<  600  > 10  1  -THETA* 40, 10 > ,THSI 40,10) 


LCASE  .GT.  2)  GO 
IPRINT  .LT.  0)  HR: 
FORMAT* 1H1 ) 


:I?E?2* 


m 

I LINES 

iocfe|  I2|Kf^!^WWL 

|  THE  VORTEX  POINTS  I 


10  ) 


POINTS  ON  THE  MING  AND  JET 


CYC 


POINTS  ON  THE  MING  AND  JET 

DEFLECTED  HINGE  AT  ELEMENT 


.’oooi )  GO  TO  100 
PARAMETERS 


VORT 

COMPUTE  THE  GE 
40  x'VxjflJ1*  DEL* 

so  R  sMliVfl' 

Pi  -Aifiv/i 

SUPERIMPOSE 

IFlISYMM _ _ 

Yv  s  YlKI)  4  y(KJ  I 
80  HDUMMY  s  EV04I X.YY, 01,02, DELTA) KJ)) 
IFlISYMM  .LT.  0)  HDUMMY  =  -  HDUMMY 
40  HII)  s  HID  4  HDUMMY  *  8 
JOO  CONTINUr 


)*CHORDIKI  1/2.00  -  XII J) 

4.^ji 


GEOMETRY 


0  CONTINUE 


REQUIRED 


Hhwmw« 

IF  I  1 1 ILINES+NEXT  )  .LT.  5u  .  -  - 

Ar  t  .6,  io  ) 


54 1  .OR.  IILINES  .EQ.  1))  GO  TO  120 


ICIENTS  FOR  FUNDAMENTAL, 


_  OtLINii’*  & 

RETURN 

SUBROUTINE  STG2S 

THIS  PROGRAM  CONTROLS  SOLUTION  OF  THE  MATRIX  SYSTEM 

IgI^^x^^K^TL&fd^SYPE’IH1NGE 

ILVI/GAMMAI  600,10 ) 

-JLV2/WKAREAI  lOOOO ) 

)N  HI  600),  SUMMER  1 600) 

IFI IPRINT  .LT.  0)  HRITEI6,  10  ) 

10  FORMAT  1 1H1 »53X ,  14HGAMMA  SOLUTION) 

SOLVE  THE  MATRIX  FOR  GAMMA  USING  MATRIX 
NSIZE  *  10000 
NIN  >  2 
NSCR1  *  3 
NSCR2  >  4 

20  CALL  MATRIX! NEHMAX, NCASES, NSIZE, NIN ,NSCR1,NSCR2,IR ) 

IFI  IR  .EQ.  2)  GO  TO  90 

RIX  HAS  STORED  THE  SOLUTION  jtN  THE  FIRST  STORAGE.LO 


MATRIX  ..... _  ..._ 

NKAREA  ARRAY.  TRANSFER 
_  I SUM  =  0 
30  DO  70  N  =  1, NCASES 
DO  40  J  *  1, NEHMAX 
GAMMA)  J,N)  «  HKAREAI ISUMO  ) 
40  CONTINUE 
IFflPRIN 


_  _ _ LOCATIONS  OF  THE 

A  INTO  THE  GAMMA  ARRAY. 


so  MffHo;kToxJ2H?8mtf^ 

60  I SUM  3  I SUM  ♦  NEHMAX 


*8 


Continue 


jo  mm 

GO  TO* 110 

PRINT  THE  MATRIX  ERROR  MESSAGE 

lOOF^fjglj^HMgglX^lE^^N^ 


CORE  TO  MORK/ 


110 


ZNE  PREPI TRANS, ZS1ZE ,NEM1AX ) 


THIS 

CONCA 


f^^TPS!T^ARf§ETM^0ra^^^S&B^ 


130 


c 

8 


REA] 


8 

c 


ON  SCRATCH  UNIT  2  FOR  INPUT  TO  MATRIX. 

Ip  Jfc-  » • 

>?1*IREAD)  ( TRANSI J ) , J*1  .NEHMAX ) 

THE  RISHT  SIDE  MATRIX  COEFFICIENTS  AND  CONCATENATE  THEM 
NgWMlftw  I*  61  I  ,N ) 

mfj BPo/wra?  ^mmrY- 

eTO^of  linear  eguations  is  non  ready  for  solution 

SUBROUTINE  MATRIX! ND,  MD»  KD,  NI,  Ml,  NO,  IR) 

DIRECT  MATRIX  SOLUTION 

88gicals0laItA( 10000 ' 

JR8 

DRE  *  KD 
PM  «  N  ♦  M 

F  IMAX0I3  «  NPM,  H  »  N)  .IT.  RORE I  60  TO  20 

20  rIn^n^mt 
rInino*%zn 

?MNO  NOUT 
51  =  M  ♦  1 
4  ■  N 
EL  »  NPM 

-  -  CALCULATE  THE  MAXIMUM  NO.  OF  RONS,  *K‘ 

50  K  *  (KORE  -  NEL)  /  NEL 

-  -  TEST  TO  SEE  IF  THE  REST  OF  THE  MATRIX  MILL  FIT  IN  CORE 

M^lW)^  BJ 

-  -  READ  'K'  ROMS  OF  THE  AUGMENTED  'A'  MATRIX 
*0  NT  *0 


B  syvi1’ K 

Sll  "UNm.  1, 


50  CALL  GETTININ,  1,  NEL,  A(NS),  1,  AA2 ) 

-  -  CHECK  TO  SEE  IF  ME  MERE  UNLUCKY  ENOUGH  TO  END  UP  KITH  ONLY  ONE  RON 

IF  IK  .EG.  II  GO  TO  110 

-  -  'K'  IS  GREATER  THAN  '1'  SO  ME  CAN  START  THE  TRIANGULARIZATION 

ks-hl; : , 

-  -  FORM  THE  'TRAPEZOIDAL'  ARRAY  16) 

!p2 


a  tuw »- 


a 

60, 


MN 

NB 


n 


era  vatu  '  *,NS’ 

00  iWterV&Vo  fir  -  *"•’ 

-  -  MRITE  THE  'TRAPEZOIDAL*  MATRIX  ON  TAPE 
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70 


i- 


S  • 

ryptifr* 

LL  JAVEIMT,  2,  HP,  HP.  AIMS),  1,  AA2 ) 

>  If  I  H 

>  KORE  -  MEL  ♦  1 
RE AO  ANOTHER  RON 

nd°°s w*.**.  MEL,  A(NS),  1,  AA2 ) 
MOOXFY  THIS  RON  BY  THE  'TRAPEZOIDAL'  ARRAY 


aTnn>\*  ainn)  ♦  Aiwo  »  i 

NT  *  IS  ♦  NELP1 
WRITE  THE  MOOIFIEO  RON  ON  TAPE 


BO 

90 

100 


Alt*) 


,*1*  NN1,  NNI,  AINN),  1,  AA2 ) 


-  -  SNITCH  THE  TAPES 


NT 
NIN 
NOUT 

RE-CALCULATE  RON  LEN6TH  ANO  LOOP  BACK 
K 


e-Hp 

CALCULAT 

b&V€l-‘»k 

GO  TO  SO 
REMIND  ALL  TAPES 
MI 


GO  TO  130 


c  IIS 
la 

C 


CONDENSE  THE  MATRIX 

(r : » « i 

&  IK^Q.  i) 

DO  120^  «  2,  K 
NS  *  NS  ♦  NELP1 
NT  ■  NT  ♦  NEL 
DO  120  10  *  NS,  NT 
AINL)  *  AIIO) 

NL  *  NL  ♦  I 

Nl  >  KORE  -  K  *  M  ♦  1 


NOT e! fTH^F^S^VAILABL^LOCA^ION^OR1^  SOLUTIONS  IS  AIN1) 
N 

1 

N 


C  140 


NREM 

NEL  )  . 

LAST  *  K  .EG 
NPASS  »  0 


SOLVE  FOR  THE  ANSWERS  CORRESPONDING  TO  'K'  RONS 


TO  170 


140 


m :  S ;  l 

«  ■  NL  -  MP1 

iTVJfH.V 

AlNF)Jjf  AIN?)  /  AIMS) 
(KM1..E0.  0)  GO 

W*  hli  Sm 

*bNT  -  MP1  -  IB 

^Iso  ZB 

Sum**  sum  ♦  a?n$)  *  ainp) 

AINF)  *  IAINF)  -  SUM)  /  AINT) 
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1 


170  CONTINUE 

•  -  HOVE  THE  SOLUTIONS  TO  CONTIGUOUS  LOCATIONS  STARTING  AT  A(N1) 

»  :  J,  5 

I  hr.  I  1 s 

118  flh* NL  W 
-  -  WRITE  THE  SOLUTIONS  ON  TAPE 
WRITE  ININ)  K 

P  1°°  ™  H 

ZOO  WRITE  I  NIN  )  (AtIO),  10  ■  NT.  KORE.  H) 


-  TEST  IF  THIS  IS  THE  LAST  PASS 
IF  (LAST)  GO  TO  ZOO 


»  M  NOTE.. I 


^MATRIX  TO  REFLECT  THE  EFFECT  OF 
FREE  TO  USE 


-  -  CALCULATE  THE  NEXT  VALUES  OF  'NEL*  AND  'NREH' 

BSPS  I  NEL 

NikM*»NNlSEM  -  K 

:  i«rKsr 

*  r-B  ♦ 


210 


5*0*1  M4l)  -  KORE) 
ROM  a_NREMQ?  K  **f 

ty 84 
«NfE” 

■  NELOLO  4  1 


4*C )  1/2.0 
TO  210 


C  -  -  READ  IN  THE  ROMS  TO  BE  MODIFIED 
DO  270  IB  *  1,  NREH 
IF  fllT.LE.  NRONJ  GO  TO  220 

„  B? = Iff  :  B8 

EwhhhhiADOED  NEXT  LINE  AND  HOOIFIEO  CALL.  A.P.  SOOERHAN.  0/10/76 
220  ^[yT_g|^KTf  2f  AINS),  1,  AA2 ) 

B?  =  NT  -  M  -  KM1 
NN  *  NN  -  KOLO 
00  240  MN  *  1,  H 


N2  a  NF 
J«  »  NP  4  m 


a  HA 

]  =  r 

230 


--°l8  a 


SUM  a  SUM 
N2  a  N?4  _ 

NA  a  NA  4  M 

N2  4  MN  - 
)  *  AIN2)  - 


*  1,  KOLO 
4  AIN2)  *  AINA) 


230 

N2  a 
240  AIN2 


SUM 


-  WRITE  THE  MODIFIED  ROW  ON  TAPE  OR  CONDENSE  THE  ROM 


S  ^  TO  250 

Ero/Bii 


SS% 


_ INOUT,  4 

__  -270 

250  NF  a  NL  -  KOLO 

DO  260  MN  >  NL.  NT 
AlNF)  a  AIMN) 

260  NF  a  NF_4  1 
270  - 


.  NN,  NN1,  A(NS),  NN2,  AINU) 


S-- 

C 


Hffe* 

SNITCH  THE  TAPES 


LOOP  BACK  THRU  THE  SOLUTION 


&  T0%, 

-  -  START  TO  MRAP  XT  UP 
280  Jt§MNg  NXN 

*  *  NOTE..  AT  THIS  POINT  ALL  LOCATIONS  All)  THRU  AIKORE)  ARE  FREE 

-  -  READ  XN  THE  SOLUTIONS 

\ 

l,tM,  AIMS),  1,  AA2 ) 


B ROUTINE  SAVE  (XU,  XT,  N,  NX,  Al,  N2,  A2> 
DIMENSION  Alt  NX),  A2IN2 ) 

GO  TO  <  10  ,  20  ,  SO  ,  40  ),  XT 

I  XU)  AX 


8 

8 

8 

c 

c 

8 

8 

8 

8 


ThSfc1 

m 

wftStfn  a.  - 

snuy&t  A2 


§ ROUTINE  GETTIXU,  XT,  Nl,  AX,  N2,  A2I 
DIMENSION  Al(Nl),  A2(N2) 

GO  TO  <  10  ,  20  ,  SO  ,  40  ),  XT 


*i 

W“'» 

■um» 


Al,  A2 


s8A8i{8v?ur?Daft,  *x 

RETURN 

SUBROUTINE  BAKSU6( TRANS, SUMMER, NEtttAX) 


i|f|p!!HlH!iSieKMWBIxpfi^( 


c 

8 

8 

c 


XO  F0^MATfiHi?4^X  .26HBACK  SUBSTITUTION  SOLUTION) 

crclf  the  mjKSU"9 


W  (PUB 

F^6?i“xIIeAD*1) 


CYCLE  THE  .MATRIX  ROC  CORRESPONDING  TO  ELEMENTS  ON  THE  KING 

20  TrI* 

SUM  UP  THE^TER)^  Fg«  THIS  RON  AND  RIGHT  SXDE 


SO 


♦  TRANS!  J)  *  GAtTVUJ.N) 
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COLUMN 

IRIGiiT  SIOE  COLUMN ,  14, 601  /IX,  10E 13. 5)) 


3 ROUTINE  STAGE3 

SS5^?EcmATI0N  0F  ALL  L0ADINBS  F0R  THE 


46  KRKrsoa  iiltYpfj  sooi 

IMPQS/FACTQKI  16 .24  )  ,NCC 

itsP5XfL'ss;^:sp,M‘ 

I  (;PRE Ag^61u  I  ,CP0l  600  )  »CPA( 


IMENSION  CPREAul 416 )  ,CPO( 400 ) ,CPA( 400 )  ,CPR0< 400 ) ,CPRA( 400 ) , 

i  { x,B  1.CPP. ! » » 

uM.. ...... 

hme i 


INT^E^oXoiNe  FOR  ALL  FUNDAMENTAL  CASES 
EKMAX ) 
tASES 


STG3FSI CLQ  ,CMQ ,CMQMC  ,DUM4  ,NEK*1AX .NOALFA , LCASE  ) 


HO/ 


7H  Al 
4X»5__. 
3H  DUE 


&uf4xce,  c 
HPITCHING 
“  TO  PITCI 


g 


6  / 


VATIVE  DUE  TO  PITCHING, 


COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN, 

4  16X,42HPITCHING  MOMENT  COE FFDE§mTivE° ABOUT  XMC, 

5  3SH  DUE  TO  PITCHING  ABOUT  XCG,  CMQMC  «,  F10.6I 
CALL  STG3FT 


CALCULATE  AND  PRINT  THE  LOADING  FOR  ALL  COMPOSITE  CASES 
IFINCC  .LT.  1)  GO  TO  100 
DO  60  M  *  l.NCC 
MCASE  *  M 

50  CALL  STG3C(NEHMAX, MCASE, NOALFA  I 
70  GOTO  100 


PI 

CASI 

60 ^C ALL  FUNDI R( 
2 


INT  THE  COEFFICIENTS  AND  DERIVATIVES  FOR  ALL 


CALCULATE  AND 

STABILITY  DERIVATIVES  FOR  ALL  COMPOSITE  CASES 


100  RETURN 
END 
SUBROUTINE 


THIS 


STG3FCI NEMMAX ) 

NE  CONTROLS  CALCULATION  OF  CHORDHISE  LOADING 


_  SUBROUTII _ 

FOR  FUNDAMENTAL  CASES 

COMMON/MATHEH/NCASES » ISYMM » I PRINT .JETFLG.IGTYPE .IHINGE 
COMMON/MARK/NROHS .KROKSJ.NWT .NJT.NMAX ,NW( 40  ) ,NJ( 40 ) ,IH< 40 ) ,IJI 40 ) 
C0MM0N/GE0M1/Y ( 40  I .CHORD! 40  I  .DELTA! 40J.XB1  400 ) ,X2 I 400 ), DELI  600  >, 

1  D( 40  I »KK( 600  I.ITYPEI 600  ) 

COMHON/FCASE3/EPSI600,10),8ETAI600,10),THETA(40,10),THSI40,10) 

COf  ttttWJCASE/CMU!  40  > .CMUPI  40  )  ,CMUPP<  40  ) 

COMMON/SOLV1/CP l 600,10 ) 

DIMENSION  XBBI 5 )  ,CPEXPI 5,10  ) 

CALCULATE  AND  PRINT  THE  CHORDHISE  LOADING  OF  THE  FUNDAMENTAL  CASES 

INITIALIZE  THf. 

"CAS 


S3  58?:  SSiJi 

MB' u 


UNUSED  VALUES  OF  CP  FOR  PRINTING 
♦  1 

GO  TO  30 

10 

HMAX 


40ltW GO  TO  TO 
WA***  SRoRDni  il H  LOADING 


*MRITE 1 6 {  f 0 ' ; Y*K *tc ^ORO  iV  ) , ( N , N= 1 , 1 0 ) 

FORMAT  1 1H0,35X,7HSECTI0N,I3,5X,3HY  *,F10.6,I 


FOR  ALL  FUNDAMENTAL  CASES  */ 


5X,7HCH0RD  «,F10.6/ 
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8X.1HZ ,5X,2HXB,3X,9< 5X,4HCASE,X2 ),5X,4HCASE ,15 ) 
?N6 


90  )  X.XBIX  ),ICP(X,N),N*1,10) 


n_a.il. 


110 


120 

130 


BusBr  LT- 11 


8S‘iEaP(zi,N) 

ONTlNUE  - -  HRITE,6,  90  *  «*»‘W>»<CPIZZ,H»,M*1.10) 

LINES  =  I LINES  ♦  NJK  ♦  1 
PRINT  THE  OETAZLEO  LOADING  ON  THE  SINGULAR  ELEMENTS 


1* 
150 


160 

170  test 


0)  GO  TO  320 

_ 29H0ET AILED  LEADING  EDGE  LOADING) 

i  Mr- 


jMr.'T 

NRITEI6,  90  )  N, 
^  LINES  * 


,CPI IP , LCASE  ,  ,CP( IP+1 , LCASE ), DELI  IP)  ,XBB ,CPEXP ) 


I 


,XB8( M ) , ( CPEXPI M,N ) ,N=1 , NCASES ) 
_  I LINES  ♦  7 

H1N?F?IHINGE  .EQ.  0)  GO  TO  320 
J  a  INIK)  -  1 
DO  250  L  *  1 ,NHK 


K"«X*tfJVWl.S8>  60  T0  250 

pO.ljO^N^*  l.NCASES 


180 


LL  EXPni^CAS^CP^N, jCPI  ^^DEU  J-l ) ,8ETA« J  ,N ) , 


MILINES. 


^T.(  46)  GO  TO  200 

10  F§RilfifjHl^42X,^3HDETAILED 


190  foSmIt?1h1) 

t.Liyr 


i||?6^  901 ft, >XBB( M ) , ( CPEXPI M,N ) ,N*1 .NCASES ) 


HINGE  LOADING  ON  ELEMENT, 14) 


220 


B 


230  N  ■  l.NCASES 
SE_?_N 


LL  EXPH2, ^ASEf CP, ^N, ^^OEL.  J , .BETA! J.N , , 


230  CONTINUE 

DO  240  M  *  6,10 

®“**Nui  90  »  M  ,XB8(  M-5 ) ,  I CPEXP I M-B  ,N )  ,N«1  .NCASES ) 


240 

250 


.EG.  0)  .OR.ICMUIK)  .LT.  0.0001))  GO  TO  320 


260 


LINES  a  ILINES  ♦  12 

mtoij 

m'^iiaiAstr  ®° To  520 

„  *  INIK)  ♦  WIKI  -  1 

CACLlxPtl1.  C^«  II .  ,S€TA«  J.N., 

S*,*’,  “  ™  !7° 

ill  FORMAT?{Hl*40g,^7HOET AILED  JET  HINGE  LOADING  ON  ELEMENT, 14) 

290  WNtInuI  *°  '  1 R»XBBIM),ICPEXPIM,N),N«1,NCASES) 

WJ50  y  1, NCASES 

'  cssts  L<  J  *  ’B€TA<  J  *N » * 

300  CONTIMJE  ^  ^  ^ 

310  cONTINull  ' W*X8»«  H-5),  I  CPEXPI  M-5,N),N»1, NCASES) 
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[>' 


iso^FoflttiTf  isx;5s?6T5[.;tss,;f;5:;;« ' 


CCSIN), 
)/ 


'“giawsTW^fifirB 

.40  FORMAT  1 1H1 1  , 


...  OF  LIFT  OATA 
.40  ) 


X40  .  - - 

WRITE!  t 
150  FORMAT! 


160 


.WRITE! 6, 

-..MAT!  1H 

SlTEl6,J 


PITCHING  MOMENT  . »10X, 

J,6X,5HCMT ,7X,2HCM, 
•CM!  K )  ,XBCP1  K )  ,XBCLI  K  ) 


170  FORMAT! 

eturn1 


I4X 


It®  . 


IX/CREF )/ 


)/ 


(ROUTINE  STGJFT 


JS!*afSSiS«?!fT: 


.  A  TABLE  OF  ALL  TOTAL  COEFFICIENTS 
SES 


^BRUO  WcSu?b‘l>CPiMli'lO  WCfBMLHi'l,,dL2RI  10),CL2L<  10) 

TO  ZERO  FOR  PRINTING 


iMi)«£SE§usr!S'!  wa  srFlcIKns 

wf# 


_( N ) 

m 

II!  N  I 
Z(N) 
INI 

INI 
INI 
.TNI 
MINI 
PIN) 
.INI 
IN) 
IN) 
IN) 
INI 
INI 
,J<  N  I 
.GIN)  = 
IN) 


imAW\ 
sElfl! 

JR!  N  I 
LIN) 
RINI 

jri^(N) 

~INUE 
16. 


;o  )  IN»N»1»10 1 
>41X>  9! 4H*»«* )/ 
ifi*  TOTAL  AEROOYNAMI 


oWfiJilSS! 
i*™'*’  4  &HI  i 


,5X1.  4HCASI 
0F11. 7,541/ 


*/42X,9I4HihHHO// 


5 ROUTINE  ST65CINEHMAX,M»N0ALFA) 


138 


SPAfMXSE  AND 


^^mofel^cgA8!l‘ 40 '  *iL 


COMMON/ L0A06/. 
COMMON/LOAD7/g 

QIMENSION  CDMUXI 
EQUIVALENCE  I  CPI 


140), 

0 ) , CHOI  40 ) , 
INF!  40 )  ,ALFXNOI  40 )  ,DUMBt  40 ) 


),CL2L(  10) 


CALCULATE  AND  PRINT  THE  CHORDWISE  LOADING  FOR  ALL  COMPOSITE  CASES 


NHT 


NR 
10  FOI 


0  )  M 

36X.111 4H«MH» )  ,1H»/ 
7X,3?H*  CHORDWISE  I 
*7X ,111 4H***«  ) , 1H*1 

T1»j 


LOADING  FOR  COMPOSITE  CASE, 15, 5H  »/ 


,9(5X,2HA(  ,11, 1H), 


WRITE! 6  2$  I 

’^^RAGE*yALyE^0F*THE^SINGuf  A^Ipfs?  R?^U?ION 
K  ■  l.NROWS 


VALUE  IS  THE, 


DO  190 


ON  THI 


30 


WING 

&SQ  "Ti 

'V 


.POI 

30.40 


40 

50 


Nl 


1,NNK 

feS?.., 


ACT I N I  *  FACTOR!  N.M) 

POI  I)  =  CPOII)  ♦  CPI  I  ,N )  «  FACTIN) 


ONTlNUL 
ONTINUE 
1  =  NCASES 


*8 


♦  1 


mu' 


GO  TO  70 
10 


INUE 
s  IWIK) 
*  IWIK) 


4  .  .. 

ificJw,jik)+.gT. 
0 

2X^4 


NWK  - 


80 


90  mu  ■  ci  o,  , 
100  FORMAT!  1HI 


FORMAT  1 11 
WRITE? 6, 


S°i°NEX?><T 
56)  .OR. 


,YIK 

SEC 


»_( NHK/1Q*1 ) 
»  NEXT  ♦ 


I  ON, I 
)  IXBI  J),J=J1 


IK  .EQ. 


IK) 


12+NOALFA)  m 
1 1 )  GO  TO  90 


(NJIK  )/10+l )  ♦  1 


.s  »*tni 

WRITE!  6,  lift 
110  FORMAT! 1H 

120  FORMAT? 

130  FORMATl’lH 

ON  THE  JET 

^  '  0.0001)  GO  TO  190 

1il*Y',“ 

140  ||)..«  0.00 

C&UI)  ?  CP(XI,N)  *  FACTIN) 


,5X,3HY  *>F10.6,5X,7HCHORD  «,F10.6/ 
,J2  ) 


)  I XB 

iZ?^L  ..... 

,  7HCPI A=6  )  ,10Fl2 .6,31 /10X,10F12.6 ) ) 
.  0)  WRITE!  6,  130  )  I  CPA!  J  >,J=J1,J2 ) 
,  7HCPI A=1 ) ,l0F12.6,3( /10X.10F12 .6 ) ) 
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IJ(K) 
*  JIK  I 


NJK  - 
T  t 


170  n  i  h . 

180  FORMAT! iH*?4H *JE 
WRITE! 6,  110  )  IXBI 

190  IfoN^llb'*  ST'  !CPAlJl,J*Jl,J2l 

COMPUTE  AND  PRINT  SPAWUSE  AND  TOTAL  LOADINGS  FOR  EACH  COMPOSITE  CASE 

DEFINE. .IHE .FUNDAMENTAL .CASE  VARIABLES  FOR  ALPHA  *  1 

0  250 


COMPUTE  SgCTIONAL  COEFFICIENTS  FOR  ALPHA 
240.  CALL*  SLOAD?  ALPI 


•  1 


,XBCP,XBCL, 


8 

8 


r- 

ca^wt  »I J ,CLG .CGAM ,NROMS .IHINGE ) 

c™m.  f ,588^V5^hm 

CASE  VARIABLES  FOR  ALPHA  *  0 


2M*iioT=sy:NTR8&sFUN0*MENTAL 

fefli  S'oToS-00 

THETSI  K»  =  0.00 


260 


JWtaI  K^N*I^*^ACT  f  N*5 


THETSI K )  = 

HOI K  I  =  O.OL 

Wftffsi  s  MSffa 

THETSI  K|T=*  THETSI. 

H9J.KJ  «  HOIK)  ♦  HLIK.N 
NUE 

l  oJa*"** 

0* ljO*N°=  l.NCASES 

TAI I  )  =  OTA?!)  ♦  BETA! I, N 

PIIJ.  =  EPII)  ♦  EPSII.N)  * 


W'm 

FACTIN) 


118  CONTlNUi 

"mTOar 

330. CALL°SLOAD I  ALP 


'AMtm 


COEFFICIENTS  FOR  ALPHA  *  0 


1 

lirem  mmoM&K  CHORD?b?CMU*NJ ,1 J ,CLGO .CGAMO ,NROMS, IHINGE I 

MNf§R3?§°SS-PR0DUCT  COEFFICIENTS 
360. CALL  SLOADXI C^A »CPO>DEL .EP ,C 


CLtiO  >C 


8^6^^CL^t2R0>CL2L01 


COMPUTE  TOTAI 
380  CALL  TLOAI 
CCJ 


ALPHA  ■  0 
CDMUO.CSO 


m  mm&t 


out®, 


TBlUirilWtU 

HROWS.ISYMM ) 
-PRODUCT  COEFFICIENTS 


{res 


PRINT  THE  SECTIONAL  AND  TOTAL  COEFFICIENTS 
410.Fol5If?iHl»47X»6{ 4Whhw  )/48X,18H* 


1  48X.6I 4H***« ) ) 

420  FORMAT? iH*^4«X, 24HFUN6AM^liTALCCASE  ’ 


COMPOSITE  CASE, 13, SH  »/ 

N=1 ,10 1 

FACT ORS/lOX , 91 4X , 2HAI  ,11, 1H), 


140 


.6/1 


“Hii.  :  •«««»*  H5l«r 

2  20H  ...  ClFT  CENTER  .../  2X,7HSECTION,5X,iHY,l 


*  * 

*  * 


440 


450 


* 


IFI NOALFA _  _ _ _  .  _  . 

FORMAT ( 1H 

■>2X  ,4hCLGA  ,  6X  ,5HCLMUA  ,5X  .3HCLA ,4X ,  10H 
Jx  >  gHCKMUA^SX ,4HCMT A  >  6X , SHCMA ,4X , 10H 


MUOI K  l^CUj!  K 1  .CMGOI K 1  ,CFM»!  K 1 , 

- "  ,2F10.6 ) 


,CCLJ0,CCL0> 


“  “  Jffl; 


•  iCCMJdl.CC 


iflar-.  * 

- I/13X.5H 

10H  ( APEX ) 

*-JiW ! 


2F10.61 

>CCMJO  ,CCMTO,CCMO  ,CXCPO ,' 


480  Fi 
2 

ifi  noau.  ..  Mflgj  j  j  cchJi ii iccrtti  i 

440  FORMAT,  JHH,^,iFio. 6, 

.  WRITE, 6,  500  1  CMGMCO .CMJMCO .CMTMCO  .CMMCO  ,CXCPB6 ,CXCLB0 
J1F0  T1|oh’  9*’  #  ,4F10.b,igH  IXMC)  ,  2F10.61 

IFINOaJa  cmgmc:?!  )?CMJflC< I  ifctlTM 
510  FORMAT 1 1H  ,44X > 10H  *  »  ,4Flu.o, 

“ORmSt (  iHl , 25X ,41 4H _ 1.15H  INOUCEO  DRAG  .,41 4H*.,,  1/ 

7X,7HS£CTI0N,6X,1HY,7X,4HCDG0,7X  - 


n  i  u  •j.i.nu  tv.«.ru  >CXCLO 

TALj2x75fIo?67~  ' 


500 


^<5XC”‘ 


1) 


520  FOR 


550 


1  7X, 7HS£CTI0N ,6X , 1HY , 7X ,4HCDG0 , 7X.5HC0MU0 , 

2  8X , 6HGAHM AO , 5X , 6H AL  FINO , 5X , 3  HCTO , 8X , 5HCMU 1 

■“NOALFA  .GT.  0)  WRITE, 6,  530  I  _  „ 

MAT ( 1H  ,27X,4HCDGX,7X,5Hf -  '  - 

f8X,5HCDGA2 ,6X  ,6HCDMUA2 
X.bHAUFINA  ) 

60  K  *  l.NROWS 


5HC  OMUl5?6X ,  3h££o ,8X , 5HC00 , 


1 


,  WRITE, 

FORMA 
IFI  NO. 


»i^!H75!«I«HGAMMA2, 


,6  .  540  1  K,YIK1,C0G0(K  l.CDMUO 
lALFA  .GT.  0,  WRITE,  6,  550_  I 


iMJOU  1  >CSO,  K 1  tCOIOl  K 1  > 


1  CDGX,  IuTcDMUX* K*l  Jcsxf K  ifcDIXl  K  1  ,CDG< K 1  ,COMU(  K),CS(K), 

2  COIlK  1  tCGAM,  K  )  ,ALFINF<K  1 
550  FORMAT! 1H  ,24X,4F11 . 7/25X,6Fll . 7 1 
560  CONTINUE 


570 


CONTINUE 

1  .5fxx  .  r , 

IF, NOALFA  .GT.  01  WRITE, 6,  580  I  CCOGX, 

. ‘  ‘ 


1 1 1 tCDITZI 1 1 


mr; 

_  .HDJX.CCSX.Cr.DIX.CDITZX.CCDGC  1  - - 

580  FORK 

PRINT  A  TABLE  OF  ALL  TOTAL  COEFFICIENTS  FOR  ALPHA  «=  0, ALPHA, ALPHA**2 

MO' 

540  FOi 

2  42X 

IF! NOALFA  . 

FORMAT! 1H  ,25X 
WRITE!  6 ,  600  1, 


600 


lMATtiHf?41X,4,4H****l/42X,20H*  TOTAL  AERODYNAMIC 

*‘-.c?haBSa!oJ  8^"  . - . 

"  Sl.f?sf9,65" 


.GT. 


5HALPHA,10X,  8HALPHA**2 1 


5 

| 

8 

1 


:0Em 

:oeffi 

:oeffi 

:oeff, 

:OEFF, 


1 1  tCCLGO ,COEFF! 

'  l,CCDGO,COEFFI 
1 1  iCCOIO  .COEFFI 
I  jCCKGO  tCOEFF,  III, 
‘  CCHOjCOEFF,  , 


EFFIlpI 

JEFF,  III.  _ 

0EFFII6  I.CXCPB.COEFF,  17  1, 
NEFF!  14  I  ,CMJ, -CO  tCOEFF,  20), 
IEFFI221,  CLLGO ,COEFFI  23  ) , 


RETURN 


I  >COEFF, 26  ) , 
- - 29) 


EFFI34 


113 


ICOEFFI 


_ FFI _ 

ICOEFF!  14 1 
1C0EFF,  20 ) 


tCLGO.CCLG,  1 1 
CCLJO  tCCLJl 1 1 
CCLO  ,CCL<  1 1 
CCDGO, CCOGX, CCDG! 1 ) 
CCDJO ,CCDJX ,CCDJI  1 1 

ccoiolcciixiccoi  (I) 

COITZO ,CDITZX,CDITZI  1 1 
CCJI 1 1 

CCMGO,CCMS) 1 1 
CCMJO.CCMJI  11 
CCMTO.CCMT,  II 
CCM0  ,CCM( 1 1 


1 


CXCLBO,CXCLB( 
CMGMCO, CM3MC I 
CMJMCO ,CMJMC, j 
CMTMC0,CMTMC,3 


141 


oooo 


Wilt 

WRITE!  6 
WRITE! 6 
WRITE!  6 

M&\  t 

WRITE! 6 
WRITE! 6 
WRITE (6 
WRITE 16 

WRITE! I 

Wilt 


fi° 

610 

610 

610 

ill 

610 


|Cg|FF!21., 


610 

§ 


......  .  CMMCO.CMMCIl) 

_ EFFI 22  ) »  CLLGO  >CLIG(  1 ) 

ICOEFF!  25  I ,  CLLJO.CLLJll) 
ICOEFF!  24  I ,  CLL0.CLLI1) 
ICOEFF!  25),  CNJI  1 ) 

- '  CNIO ,CNIX,CNII 1 ) 

CCYO.CCYX.CCY!  1 ) 
CBGRO ,  CBGR! 1  ) 
CBGIO,  CBSL! 1 ) 
CBJRO,  CBJR(l) 

t&hv  awv 

BLO,  CBL(l) 


JCOEFF!  261, 
ICOEFF!  27), 
JCOEFF!  28), 
ICOEFF!  29 ) , 
ICOEFF!  SO), 
ICOEFF!  31), 
)COEFF(  32 ) , 
ICOEFF!  33  I, 
JCOEFF!  34 ) , 
ICOEFF!  35), 


.DLUl  bei.ii, 

epIhlS:  «!1! 


64l 


COMPUTE^AND^PRINT^A^TABLE  OF  THE  VARIATION  OF  THE  TOTAL  COEFFICIENTS 
45.CALL  TABLE^CC^O^CU JJ^MMCOjCMMC!^ )£^LO^C^Ij!jl^CDITZQ»CDITZX» 
CCYO >CCYX ,CCY! 1 ) ,M ) 


RETURN 

END 

|haRAC?ER*8  COEFF! 35) 

tefe/C0E^  lgX 
ccmj1;* 

CXCPB  * , ’ 
»*  CCMMC  * , 1 
*  CN1MC '  , 
CBGR * , ' 
CBR* , ' 


W 


END 


_CD' 
CCMT  * , • 
CXCLB 1 , 1 
CLLG' , ' 
CCY 1  , 
CBSL  * , 1 
CBL  , 1 


Si:! 


*#  i 

**  cd«  - 
CCM‘ 
CCMGMC  * 
CLLJ 

CBJR* 
CPMBR1 


** 


CCDG 

CCJ* 

CXCP' 


... .  m 


CBJL ' , 
CPMBL  / 


THIS 
AT  5 


SUBROUTINE  EXPLE! LCASE ,CP I ,CPI1 ,DEL,XBB,CPEXP  ) 

A  LEADING  EDGE  EVD 


SUBROUTINE  COMPUTES 
INTERMEDIATE  POINTS 


THE  CP  VALUE  OF 
ON  THE  ELEMENT 


DIMENSION  XBBI 5) >CPEXPI 5,10 ) 

10  DN  »  0.20 

DO  40  N  =  1,5 
20  X  =  DN  «  N 

XBB(N)  =  X  *  DEL 

30  CPEXPIN,  LCASE)  =  0.666666*CPI*( 1.0/SGRT1XI-X)  ♦  CPI1*X 
40  CONTINUE 
RETURN 

SUBROUTINE  EXPH1! LCASE ,CPI ,CPI1  ,DEL,BTA ,C,XB,XB8,CPEXP ) 

^sA?T^I^E8?2mS?I  85  F0RWARD  HALF  0F  A  HINGE 

DIMENSION  XBB! 5 ) »CPEXP( 5,10 ) 

8N  =  0.20 
0  30  N  a  1,5 

10  X  a  XB  -  DEL  ♦  <N-1)*DN*DEL 
DX  a  X  -  XB 
XBB! N  )  ax 

20  CPEXPIN, LCASE)  a  -1 . 273240*BTA/57. 295779*1 AL0G1 -C*DX ) 

1 _ ♦.  AlogiC»DEL)*DX/OEL)  +1CPI  ♦  ( CPI-CPI1  )*DX/DEL ) 

30  CONTINUE 
RETURN 

luBROUTINE  EXPH2I LCASE ,CPI ,CPI1 , DEL ,BTA ,C ,XB ,XBB ,CPEXP ) 

I^sA?TOMmSiWI  85  ^ueelMe  REAR  HALF  0F  A  HINGE 

DIMENSION  XBBI 5 ) ,CPEXPI 5,10  ) 

0.20 


10  OX 


20  Cl 


:  N»ON*OE 
XB  ♦  gX 


IN) 


.  1  ^EXP  u  3  JiUgf  Tf J  •  ?9?^|!cpi?^»DX/S^L  ) 

30  CONTINUE 
RETURN 


luBROUTINE  SLOAD I  ALPHA , I J »NW,NJ .CHORD ,CMU ,THET A ,THET AS »TST , 

sst^wiM'ssfs  isi  tsffisn 


DIMENSION  I J( 40  )  ,NW( 40  )  ,NJ! 40 ) 
DIMENSION  CHORD!  40  )  ,CMU(40  Ijfr’ 
DIMENSION  CP! 600 )  >XB( 60* 

DIMENS  I  .5.  CLGI 40 1  iCLMU! 

1  XBCP!  40  )  »XBCL(  40  ‘  ' 


TSTI40) 

'"i| 

NT!  40 ) »CM( 40 ) , 
)  »CT(40 ) 


INTEGRATE  THE  CHORDWISE  PRESSURES  FOR  EACH  SPANHISE  SECTION 
°  IF*IHINGE  .GT.  1)  IHINGE  a  1 
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00  150  K  3  l.NROWS 
LEADING  EDGE  CONTRIBUTIONS 
III  J.DEC 


20 


LI  s  DECl I )  *  (CP(I)+0.50*CPII+1)) 
LG1  K  )  = 


CLGIK)  =  CLI 
CMGIK)  =  -DELI  I  )** 


CDGIK)  =  CLI*  EPS?i1/59‘ 295779 
30  CSIK )  *  0.1745329  *  OEL(I)  *  CPII)**2 


*  I Q. 666666 7*CP( I  )+CP< 1*1 ) )  /  3.00 


U :  p-  os 


NWIK) 

©  100  L  -  2.NWK 
*1  +  1 
PI  =  CPI  II 

FIL  .EG.  NWK )  GO  TO  40 
PII_*  CPII+1) 


EDGE  CP  VALUE 


8 


FIINJIK)  .EQ.  0)  .OR.  ICMUIK)  .LT.  0.00011)  GO  TO  50 
UK  -  IJI K  1 
CPU  *  CPI IJK) 

§8^  CPI+CPU 1 

CLGI K  )  *  CLGIK  I  +  CLI 

CMGIK)  *  CMGIK)  -  CLI*XB(I)  -  I  CPI+2.0*CPI1  )*DEL(  I  )*#2/6 .00 
60  CDGIK I  *  CDGl  K  1  ♦  CLI  *  EPS!  1 1/57. 29$779 
BCF  *  BCF  +  BETA! I  I  *  (1.0-XBII)) 


HINGE  CONTRIBUTIONS 

IFIIHINGE  -EG.  0)  GO  TO  100 
62  *  BETAII+1) 

IFIL  .LT.  NHK)  GO  TO  70 


B2  =  0.00 
IJK  =  IJI K  ) 

IF!  CMUIK)  .GT.  0.0001)  B2  *  BETAIIJK) 

70  IFI IABSIBETAII1)  .LT.  0 .0001 1 . AND . I ABSIB2 1  .LT.  0.00011)  GO  TO  100 
CLI  =0.00 
CMI  =  0.00 


80 


Dl  =  ALOGt  DELI  1 1  *  CHOROIK1) 

CON  =  0.6366198  *  DELI  I)  /  57.295779 
IFIABSIBETAIJ  ))  .^T.  0.Q001I  GO  TO  81 


.  ..J001I  i —  . 
)  *  12.0  -  DL) 

....  _  J.50-DL/3.00 ) 

[FI  ABSIB2  )  .LT.  0.0001)  GO  TO  90 

~  -  til :  i°8o%Bi2V?i0fi-:!2 

_ )  =  CLGIK)  ♦  CLI 

8dS!k)  =  kh\ ;  §B : 

100  CONTINUE 

COMPUTE  THE  SI 
110  CLMUIK) 


90 


CLI  =  CON  *  BETA! 

CMI  =  BETAI I )  * 

IFI ABSLP2 )  ' 

CMI  =  _  _ 

CLGIK )  *  CLGIK)  +  £l 


I 2T06  -  DL ) 
id. 7500  -  DL/3.00) 

?pki  1  J/--C-----^LI  «  XBII) 


120 

130 

140 

\l°0 


........  JOTTfe  ?H£ TA?K*/57?295779 

MMUlVl  =L-CMUI  K  )C*MTHETA(  K  1/57 . 295779 
CUT  I K  )  *  CMUIK)  *  lALPHA+TSTIKl-THETASl 
CMI  K  )  =  CMGIK)  ♦ - -  - 

xbcpik)  *  o.go 

XBCLIK)  =  0.00 

IFI*'- . . 

IF! 

CDtl 


IK)  ♦  CMTIK ) 


I  Kl+BCF  1/57.295779 


8 

c 

c 


c 

c 


*F?8lGIK)  -NE.  0.00)  X8CPIK)  *  -CMGIK)  /  CLGIK) 

FICLIK)  .NE.  0.00)  XBCLIK)  =  -I  CMGI  K  1+CMMUI K  )  )  /  CLIK) 
DMUIK)  =  CMUIK)  *  ITHETAIK)/57. 295779)**2  /  2.00 
LDIIK)  =  CDGl  K )  ♦  CDMUIK)  -  CSIK) 

CTIK  I  =  CMUIK)  -  CDIIKI 
CONTINUE 

endurn 

SUBROUTINE  at88®dSM^EPgi5^NH,NJ,IJ, 


S^fHl^OTlR^kMIfFlglE^fi710^1  CROSS-PRODUCT  VALUES 

IMENSION  CPA 1 600  ),CPO< 600  I  .DELI  600  )  ,EPSI 600 ) 

IMENSION  CNUI 40 ( ,THI 40  I  ,NW( 40  )  ,NJ( 40  )  ,IJI 40  ) 

IMENSION  CLGOI 40 ) ,CDGXl 40  )  .CDMUXI 40  )  ,CSX( 40  )  ,COIXI 40 ) 

$0*70  K  *  l.NROWS 
LEADING  EDGE  EVD  CONTRIBUTION 


OELI I  )*(  CPA  1 1  )+0.50*CPA<  1+1 )  )*EPS<  I  )/57. 295779 
,3490658  *  DELI  I)  *  ICPOII)  *  CPA  1 1 ) ) 


1=1  +  1 

10  CDGXIK)  *  .  . . 

20  CSXIK)  *  0.3490658  *  01 
NWK  =  NWIK ) 

DO  50  L  «  2>NHK 
1=1  +  1 
30  CPU  =  CPAII+1) 

DEFINE  TRAILING  EDGE  CP  VALUE 
IFIL  .LT.  NWK)  GO  TO  40 
CPIl  *  0.0 

IFIINJIK)  .EG.  0)  .OR.  ICMU(K)  .LT. 

IJK  *  IJI K ) 

CPIl  *  CPA)  IJK) 

REGULAR  EVD  CONTRIBUTION 

40  CDGXIK)  *  CDGXIK)  +  O.50*DEL<  I  )*l  CPAI I  l+CPIl  )*EPSI  I  )/57. 295779 
50  CONTINUE 

COMPUTE  THE  REMAINING  SECTIONAL  COEFFICIENTS 


0.0001))  GO  TO  40 
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■  CDGXI K  ) 
*  CMU 


^MUIK  ) 
CDGXI  K I 


_IK)/57.j 

*  '-IlH 


COMUXI 


mu 

SX(  K  ) 


RETUR 
END 

BROUTINE 


1 -  S^gAgG.CP^ .BETA .CHORD ,D ,CMU ,NJ ,1 J .CLG.CGAM. 

JHI|H|UgRWT^  gOHPl/TES  THE  SPAKWISE  VARIATION  OF  TOTAL  VORTICITY 


I»1P 

DO  60  K  *  l.NROMS 

S8"sm|.w,“l  •*’  ™"kitt- 

JFICMyiK)  .LT.  0.0001)  GO  TO  50 


ETAI 600 ) 

<40),NJ(40),IJ(40) 


INTEGRATED  FROM  T.E.  TO  INFINITY 


TRIBUTION 
•EG.  0 )  - 


-T0dS« 


8  hi  1,njki 

28  tea-  4“""“  *  »•“ 

FAR-JET  EVD ^CONTRIBUTION 
CGAMIK)  i  CGAMIK)  + 


^cf^^o:AS6S?!^8.K»SEfeLfi^)1) 


«  DELHI)  *  ICPIII  )*CPIII*1)) 


OIK)  /  CHORD! K)  «  CPI II) 


I'MM 


UP  THE 
CGAMI K  t 

Hur 

.IuSroutin 


8 

8 

8 


FoPa^dXmIR?  AL*8a&*TES  ALL  °F  ™E  T0TAL  L0AD1N6  pAR"«TERS 

■h  mmmmm 


,XLE  ADI  40 )  .INI  40 )  ,NHt  40 ) 
CMMUI 40 )  »CMT( 40 ) ,CMU( 40 ) 


[A^IZEoTHE  TOTAL  COEFFICIENTS 


!XCf 
XCL 
XCPB 
XCLB 

LLG  =  8:1 
‘  ■  88 
s  J:H 

juft  =  o.oo 

CBJL  =0.00 

il  =  8:88 

CL2R  =0.00 
CL2L  =  0.00 

SHE  :  8:88 


■TO  lH*  ?! MAL  VAUJES  0VCR  THE  WAN 

20  CDEL  *  CIK)  «  DELTA! K ) 

IFtfSYMM  .LT.  0)  GO  TO  80 

LIFT  COEFFICIENTS 

CClJT ;  £CLG  ♦  ggEL  *  5LG.KJ 


30  CCLJ 


DEL 


«  CL _ 

»  CLMUIK ) 


PITCHgNG  MOMENT  COEFFICIENTS 

COMPUTE *L?A0ING^0GECHe2ghT  ABOVE  MING  APEX 


NWK  «  NHIK) 


XOS  «  0.00 

88,60  L  =  1,N« 

kL1^sl  M\  *W?lU?.  245779 


SO  XDS 
60  CONTI! 
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) 


*  CHUOC) 

IENTS  AND  ROOT  BENDING  MOMENTS 


1 :  it'.5, 
t :  WASH 


) 

6UC  l+CLMUCK) ) 

.61 K I 
‘"IIIC ) 

K  l+CLMUIK ) ) 


S  OF  ALL  THE  TOTAL  COEFFICIENTS 
TOR  «  4.00  /  AREA 


\i°o 


*  Ftij 

OR  /.PREF 


2  ng 

Cm  »  FACTOR  *  CCMT  j  rLJT 


CCL 


140 


150 


00 


EMG  ♦  CCL6  *  FACTO  . 

?mt  -  §5  *  Factor  *  alpha/57.245779 

-  ♦  CMJMC  ♦  CMTMC 

.01  sOO  160 

-  --5T0R  ■  -2.00  /  AREA 


160 


170 


*8  is8 

i 

=11:  it 
HV?is? 

fti  8SS8E  :  SSKtlf 

COEFFICIENTS 


TANLEI40) 

O) 


«WTiI 

8?tl  SToo 


COEFFICIENTS 


BE :  8:88 

CCY  «  0.00 


INT( 

20 


RAJETHE 


CTIONAL  VALUES  OVER  THE  SPAN 

•NROKS _ _ 

IKJ  *  PELT 


iBrvytTW 


K) 

IK) 


CCOJ  *  CCDJ  ♦  CDEL  *  CDmUC) 

50  cSItI  =CCDITZ  ♦CDEL*ICLI K  )*ALFIN0I K I  ♦  CLOI K )*ALFINFI  K ) ) 
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) 


LOGICAL  Z1»Z2>Z3>Z4»Z5>Z6>ZT1«ZT2 
FINt>sgOEFFICIENTS  OF  CURVES 
B9  *0  I«1,NR0M5 


KE.6T.0.AND.I.E< 

MU'ikifi'M, 


OMSl.OR.I  LIKE.GT.O.AND.I.NE.NROHS.AND. 


IHMKI 


13*025-023*015 1 


Jii 

FIYII  l.LT.O.Oi  GO  TO  SO 
I  l=SQRT< ABSI Dl*  '2-DELTA 
U*SQRTI  Dl»*2*0LcTA(  1 1 ) 


TAH))1 


To  88 

CALCULATE  STRENGTH  OF  OISCRETE  VORTICIES 

1? *g8uVS"^*CT  0 *° 10R* 

Bo  W«o 

70,0GAIim=l  E(  1*1  l-E(  1 1  J*0M(  I  l+IBI  I+l  )-B(  I )  l«OMI  I  l**S«IC<  1*1  l-CI  1 > 1 
1*DM( I 1**5 
80  CONTINUE 

c*m®F 

ftpi 

im^J^Lt^O.OI  F2=F4 

|ljjALOGi  ij|?l  ?DP?  J1-f1i*I  Mil  J  )*F2  1  )/l  I  DPI  J  )*F2  1*1  DHI J  1-F2 1  1 1 ) 

If< LIKE.GT.O I  GO  TO  90 

F3«AL06l  ABSI  1 1  DPI  J  1-F4  )*( OMI J )*F4 1  )/l  I DPIJ  )*F4 )«l  OHt  J 1-F4 111) 

S2P*| . 0«I0PI J  l-OMI J )  1»F4*F3 

IF I LIKE.LT.O I  SY*-1.0 

fFlLIKE .If .0)  SY»1.0 

Sl*si»SY*F3/F4 

Si*ii*SY«S2P 

Sl*S3»SY*l  1 2 .0*1  DPI  J  1**S-0HI J  1**3 1/3.0  HF4**2*S2P 1 


*S3»SY*(  12.041  DPIJ  1**3-0H< J  1**3 1/3.0  HF4 

usfeKfSfviw.atomfjwii 


♦1 . 5*61 J )*S2«2 . 5*C< J 1* 


?8S*as}5ng^of^  ancl! 


ONPUTES  AND  PRINTS  A  TABLE  OF  TOTAL  COEFFICIENTS 
I6LES  OF  ATTACK 
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XO.  FoiniU 

1  ...  23HENTS  FOR  COMP! 


im 

ft  »v 

sit 


20 


^Nf*» 


8 


ALPHA. 

?-ms 

*  ALPHA 

*  Wpha 

i  ALPHA  *  C0XA2  *  ALPHAS 
IIX  »  ALPHA  *  CNIA2  «  ALPHAS 

*  ALPHA  ♦  CYAS  *  ALPHAS 


PRINT 


ALCOEFFICI, 

LL,15X, 


lr:w  nr 


18 


®r 


»3FXX.7) 


8 


iK5ss?s^^E^mtIc^^aix?rjN8W^Af*?m5*MC  coefficiemts 

400  ’  ,CPRA‘ 400  ‘  ,CPP' 400  ’ 

litiriloij  nw«48‘>  i jfAO r * 1 LT*‘ 40 * ,“*Jt *° 1  ,xu 40 1  *TL< 40 1 

.HHEREjTHE  SOLUTION  OF  THE  FIRST  RUN  NAS  STORED 


w wmjmss?  ioaoing 

J^aL^?BI^[?5n5hW^^case 

--- i  i  *°- - 

CPPI* 

20  CON 


'8as|o*NN*  1,r 

ilN0(  I^iJeAD1! 

X  CALL  STGiFSl DU 


NCASES ) 
iO. .»  1, NCASES 
♦  X 


AND  TOTAL  LOAOXN6 

I DUM1 ,0UN2  »DUM3  ,CLLP  >NEM4AX,N0ALFA,LCASE ) 

re«x^!SIId'^pS0LUT10N 

DEFgNE^CP  AND  |P.  ARRA”S  FOR  THE  PRESENT  SECOND  RUN  FUNDAMENTAL  CASE 


CPR0?I 

&^n5eepS' 


...EHMAf 

mb' • 


AO 

“wyRifimiiMmm 

* ... 

TliESMIW 


‘ff’o  i  Dim 


JRMf*? }8Ii!^!WVAT1VE  MU 

i  Sr.  funmmemt“  case'  »■ 

fo&iSU{ho/  |sx^L4ahrollinc  moment 

Vteia 


ENT  COEFFICIENT  DERIVATIVE  DUE  TO, 


MS 


^eg  TO  "  ^TR*= , FlST9/*56xf 6(cYR2  «,FX2.7) 

,FoMnlHil®2Wi^LiK?iSsPMgMEl!!T  C06FF  DERIVATIVE  DU 


X,  17HCNIPJ  *  CNP2*P**2  /? 

B  ’^Sf If  ICALcSClf  ?|PS|C»LLO^// 


TO  ROLLZNB,  CYIP), 


m HE 


it  "SPftSZii 


?oISAL^cS5^Ti°?Is?kS  CALCUUT10N  0F  STADILITY  DERIVATIVES 


)  tCPRO(  600 )  .CPRAI  600 )  ,CPPI  600 > , 
^IHnH^I  ^Rg',^ »^LTAf 4o1?8mUI  40 ) ,XL<  40 )  ,TL<  40 ) 

C  CYCLE  THROUGH  ALL  COMPOSITE  CASES 

BO  100  M  *  1,NCC 
MCASE  =  M 

C  FIN?REa5  f°LUTI0N  OF  THE  FIRST  RUN  MAS  STORED 

FINOIl'lREAD)*  * 

I  CASE 

:prqiii  =  o.’oo 
pi {)  *  o.oo 

fHM ;  ?'«!>’ 

towW'MfflWBi*1 

IP  CONTINUE 
20  CONTINUE 

;  '"Sf?s¥rr3®Ti5®"c’°®SSI,E  “* 

cpoii)  *  o.6o 

30  CONTINUE 

I RE AO  =  I READ  -  1 

iSeao  *  irI^d0*  1 

FINDl 1 ' IREAO ) 

40  jJ&m^’cP^AO0-0’  “  T°  M 

18  com f MUE  =C  <^ ^ *•  l1+ XF*CT0« <  N »M  I  *  CPREADUl 

'  I:fc  . 


E )  rCPROt 600 )  ,  CPRAI 600 ) ,CPPI  600 ) . 


J(  40 )  >XL<  40 )  »TU  40 1 


PRINT  A  SUM 

j  «S 

100  SM* 

Ef®  „„ 


CYPA.CYP2, 


«IsTf!CTISi.lmf[|isoi5i5S?{88isl  *»  s'"°»  T°  *“*“«* 

CPa(nEmAaxT?CPP(  600 )  >CPR0(  600 )  ,CPRA(  600  I 


ON  NHE40 


ELTAE  40 )  >CMUI  40  )  ,XLI  40 )  »TL(  40  ) 


I8I^81fEoT8S DERIVATIVE  T£WS 
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CNPA  =  0.00 
CNP2  =  g.og 
cypo  *  e.go 
cypa  *g.8o 

CYP2  :  0.00 
CLLRO  *  g.00 


:llra  * 


.00 


INTEGRATE  THE  COEFFICIENT  TERMS  SPAM4ISE 
00*100  K  *  l.NRONS 

mM6  cSSEEKHSS  ,E"“  cmna“ 

km 


20 


erhp*/e25 
Ermp 


*  (CPPII)  ♦ 

“im 


.295779  « 


0o§?^V!p,I*1,, 


c 

8 


fH fJ 

ft » . 

II '  fcpiRH  5  Pfl  2  822!}!  2  82211! 

58  m  :  Htm  2  mi! :  8: 182828211:1!! 

REGULAR  EVO  CONTRIBUTIONS 
40  NHK  =  NHIK ) 

DO  70  L  ■  2.NNK 

822Ji*=TOiii, 

CPRAl  a  CPRAI I+l ) 

FIL  .LT.  N)«)  GO  TO  50 
PPl  *  0.00 
R01  a  0.00 
RA1  a  o.OO 

ICfWIK  I  .LT.  0.0001)  GO  TO  50 
JK  *  I  Jl  K  ) 

PPl  *  CPPIIJK) 

R01  a  CPRO(IJK) 

RA1  a  CPRA(IJK) 

»  -EPS(I)  /  157.295779  *  UOIK)) 

RMP  » $-50  »  DELI  I)  *  <CPP(I)  *  CPP1) 

0  =  OPO  ♦  TERMP  »  EP 
_  A  =  uPA  +  TERtIP 

SBaN  :  8:18 :  8ltli!  5  i£?Hlii :  OTi 


50 


70 


xmt|actoI 

FACTO  *  CHORD! K)  *  DELTA! K)  «  TL(K) 
80  C^P  =  CNPO°**<  DPO1^ 'sPO  J  ’*  F  ACTOR 


m :  8H2f :  a  iWiP® m  - 

II  *  m :  I  :  k 
1 


110 


*  FACTOR  - 
.  .  -  SPA )  » 

R  ♦  SP2  *  FAC 


FACTOR 

FACTOR 


!f2cto2a-tsp, 


A  *  FACT 


PUTFlcHfoSE?Mt 

dsv=%  ‘ 

NPA  =  FA< 
NP2  a  -F 
LBO  a  - 
A.  a  -FA! 


115 


120 


V  /Xar|aform 

I*  2'cNP0T°R  *  2-°°  ' 
IR_*  CNPA 
^R  *  CNP2 
OR  K  CLLRO 
R  *  CU! 


AREA 


LOO  *  FACTOR 

J  2  m 

36  .NE.*0)VGO  TO  115 

1.00 

ISYMM®8e.  0)  GO  TO  120 
0.00 
0.00 


COftJON  /OERIV/ 

dimension  mm 

DIMENSION 

dimensiqnB . 

DIMENSION  NHI4I 


SP 


amsfis, 


>CPRO(  500 )  *CPRA(  600) 


mYuSliJelTA! 40  I  ,CMU( 40 ) ,XL( 40 )  ,Tl( 40 ) 


INITIALIZE  THE  YAMING  COEFFICIENT  TERMS 
10  CNRO  «  0.00 
CNRA  «  0.00 
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I  NR*? 

NR20  , 

NR? A  *  0.06 
NR?  A2  =0.00 

yro  =  o.oo 

CYRA  *0.00 

CYRA?  - 

EYR2 

CYRZa  —  v<uu 

CYR2A2  *  6.00 


8: 

|az 

||*S  8:88 

zX  *  o.oo 


5o*l8o  K  *  lrNROHS 

flnmiDir cgSfgf56?!S5sTERMS  CHOftOHISf 


CPRAI  I  )«CPO(  X  ) ) 


Alt'll*  JScliuu  x ) 


)**Z 


25w.E^i  grRiBuTi0Ns 

?V?  L  =  ZrNHK 

PRO!  =  CPROI 
*RA1  *  CPf 


CPRA 
IFI  L 


CPRAI i*x  i 
.LT.  NWK I  GO  TO  SO 
‘0 

,  0•0001,  601050 


& 

60  TERMA 
PRO  * 


till  1 8:8( 

STOWo' 

m  =  mm 

P  =  -EPS!  I)  /  I  57.29! 


iULAR  EVO  CONTRI 

llRMO  =  o.|o  * 


779  »  UOIK ) ) 


DRO  *  DRO  ♦ 
ORA  *  ORA  ♦ 
DRA2  =  0RA2 
70  CONTINUE 


I  *  < 

_ 1  *  ( 

TERMS  *  EP 
TERMO/57. 295779 
♦  TERMA 


CPROI I HCPR01 ) 
CPRAI  X  l+CPRAl  I 


♦  TERMA  *  EP 


^.aaradTMir 


NRAZ  =  CNRA2  ♦  I  ORA - 

YRO  =  CYRO  +  SRO  » 

YRA  *  CYRA  ♦  SRA  *  L _ 

YRA2  =  CYRAZ  ♦  SRAZ  *  FACTO 
FIISYMM  -LT.  0)  GO  TO  10* 
NRZO  =  CNRZO  -  SR20  »  FAI 
NRZA  =  CNR2A  -  SR 2 A  *  FAI 
NR2A2  =  CNR2A2  -  SR2A2  # 
YR20  *  CYR20  ♦'  SR20  *  FAI 
YR2A  =  CYR2A  ♦  SR2A  *  FAI 
YR|a^=  CYR2A2  ♦  SRZAZ  * 


yjiom . 


88 

ACTOR  -  SRZAZ  *  FACT 
0 
0 

ACTO 


SRA2  *  FACT 


tfPM  SW0"" 

*  *CNrST0R 

CNR A  =  FACTOR  *  CNRA 
CNR A 2  =  FACTOR  *  CNRA 2 

p  Lv&JiL 

FACTOR  *  2.00  *  FACTOR 
CYRO  *  FACTOR  •  CYRO 
CYRA  *  FACTOR  *  CYRA 
CYRAZ  *  FACTOR  *  CYRAZ 
CYR20  =  FACTOR  *  CYR20 
CYR2A  *  FACTOR  *  CYR2A 
CYR2A2  *  FACTOR  »  CYRZAZ 
1ZO  RETURN 
END 


*  Z.00  /  AREA 


CYPA, 

» 


^Il^tTOy^^  mLE 

COMMON/COMPOS/F ACTOR! 10,24)  ,NCC 

PRINT  ALL  CONSTANT  DERIVATIVES 
WRITE! 6,  10  )  MCASE 
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36X,5lHAND  ( 


HUM® 

aTc?£a| 


nuitmrrffl 

7HCNR2A  * »F13, 7/§QX 

WMlU^ 

..  m«W;> 

ON  ALPHA 


:a?*alp&a** 

t2A2  *»F13 


MeB^I 


LLOHS  / 


\  ipP 

5  36X.51HAN0 

6  51X  r  7HCYR20  «, 

INT  TABLE  OF  IjERIVATIVE  TERMS  HHICH  DEPEND 
lF?3xtf3H*  $I$ti?ION* 6?°4f ABILITY ’^RMS  WITH  ANGLE  OF  ATTACK  «,/ 

;l^;Sa8KSI  J^X.SHCYP  ,X0X,A««YPe  • 

&sM 


% 


♦  cnp1”p° 


tt4^HA. 


% 


80 

CNP 

”  ?S5.'iiP;'^br»L,Bi-  CNM*.  .LPH.-Z 

120  F  ■ 1 
SUBROUTINE  STAGE4 

&SS?,im5!SB,,4ttI!!EFK'SVaSC«?5  mifiSMSr  *• 

6^0  1  ’*^*00 1  »**<  *00  •  »0EL«  600 ) , 
£U6il}lj“5j!40J  ,ASTi!  40 )  ,40120240 U 

,10) 


THE, 


ADD  JHEq^XTRA  FUN^AM^NT A^  CASE  FOR  DERIVATIVES  OUE  TO  PITCHING 
10  IfJ NCAsis' ?Lt .  10)  Go'  TO  JO 

20iF^^|^//^6ft$HgUM^N^Loi*fCAi?V^SD5iCVo^?V^!aGV 

Hi 


SO  NCASES* «  NCASEv 

*8ls^  %iw^fctaS:JRtKh*SS:REI§<ST*”’”'  ’™T*  ’ths  •hi  - 

SAVE  THE  FIRST  RUN  SOLUTION  ON  UNIT  1 


SO 
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“  awdJim  ,CPREAD  ,f#UX  ,NJT , ISIZE  ,NCASES ) 

NTAL  CASES  FOR  YAWING  DERIVATIVES 

CAL^  OUT2(  LCASE ) 

x38  fflP 

SUBROUTINE  0UT2!  LCASE) 

se^iS*5l°I5?hSopinpu?  001  THE  GE0METRIC  DATA  derived  FROM  THE 


rWJ^m&mSkw 


I J(  40 ) 


WliMIf®®8®®'' 


iciSE1®?  “»etbic 

HAT ?iHf?39X » )/ 

4QX,40R*  EVD  Jf" 


ING  COMPUTER 
0A4) 


PRINT  ( CASI 
10  WRI _ 

20  FORMAT (  _ _ _ 

1  4QX,40R*  EVB  JET  -  Nil 

2  40X.10I  4H****  I///20X ,20 

CMA  =  -  '  * 

SO  WRITE! 

1  HIM  I  iUiALb 

40  FORMAT! lH0//S4X.4MUsiQ>llX, 

1  4IX,6HAREA  =,2Fl£.6  .  . 

2  41X,6HCREF  =  ,|f1 f.6  /  4 

1  4iX,6HCMAC  =»2FI5.6  /  39X 

4  42X.5HXCG  =,2Flf .6 > 

SO  FOHMATI 1H0/  |  *  *. 

2  4ZX.8HJETFLG  «,!|,7X,!s  /  4 


PROGRAM  */ 


'dfiAC  »  SPA  /  /  V  SUM'S  i 

EV  )SAg|A,  ARE  .SPAN  ,SPA  ,CRE  F  ,CRE  ,XMC  ,XM,CMAC  ,CMA  sARATZO, 

. .  fWUum  ..ms,.  / 


NT  >IPRs JETFLGt JET  > 


4 

60  J  ■  0 
JJ  *(WT 

PRINT  FUNO 
HR 
70^FOI 

2 


43X jf^HNUlii R *6f  hIMG  ELEMENTS  *,I4  / 


mm 


v. 


FUNDAMENTAL  CASE  HEADER 
ITEI6,  70  )  LCASE 
IRMATI 1H1 , 23X.1H* ,19! 4H»**»  1/ 

24X.54H*  ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR, 
17H  FUNDAMENTAL  CASE, 13, SH  */24X,lH* ,19! 4H#**« )) 


DO  260  K  «  l.NROMS 
PRINT  SECTIONAL  DATA 

WRITE! 6,  §0  )  K ,YI K ), DELTA! K  )  .XLEAD! K  )  ,XTRAILIK ) , CHORD! K  )  ,TANLE( K ) 
80  FORMAT! 1H0,11H*«*  SECTION, 13, 4H  ***,2X,3HY  =  ,F10 .6,2X,7HDELTA  «, 
F10 . 622X, 7HXLE AD  =<F10. 6,2X,8HXTRAlL  *,F10.6,2X,7HCHOR0  =,F10.6, 


1  =,r 

2  2X.7HTANLE  =,F10.6) 

PRINT  CHORDWISE  DATA  ON  WING 
NHK  =  NWIK1 


90 


WRITE!  6,  90  )  NHK.TSTI K, LCASE  ), HLIK, LCASE  >,THS!K, LCASE) 

FORMAT! 1H0,21HWING  ELEMENTS  .  NW  =,I3,5X,  7HTWIST  *,F10.6,5X, 
1  4HHL  =»F10.6»5X,  9HTHETA  S  =,F10.6) 

WRITE! 6,  100  )  IXB1 J+L ),L*1,F - 

FORMAT! 1H  ,14X,2HXB,  10F11.! 

IF! LCASE  .67.  i)  60  TO  130 
WRITE!  6,  llO  )  (XI!  J+L),L=1,F 


NHK ) 
6/17X,10F11.6 ) 


uo  mi 

118  r  _ 


hr: 

140  FO  . . 

150  WRITE!  6, 
160  FORMAT!  1H 


ImAT?  1h*  aOX,6HCAMiI^i6Fn  I6/17X ,  10FU .  6 ) 
ITE! 6 ,  160  )  (EPS! J+L, LCASE  ),L=1,NV!X  ) 


in  ,i 

u'si*  “* 

[FII#!K  .GT.  9)  IL  «  2 
[LINES  ■  I LINES  ♦  4  ♦  4*IL 


12, 6X) ) 
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IF< LCASE  .EQ.  1)  ILINES  *  XLXNES  ♦  2*IL 


PRINT  CHORDHXSE  DATA  ON  JET 
NJK  *  NJIK  ) 

IFINJK  .GT.  0)  GO  TO  200 
WRITE! 6.  190  ) 

190  FORMAT! 1H. OX, 19HTHIS  RON  MAS  NO  JET) 


190  RON  MAS  NO  JET) 


5X.4HDJ 


iTo" J  I XI ( JJ+L  ) »L*1 »NJK ) 

ill  ii 

JJ  *  JJ  ♦  NJK 

hkl  *ttM  iLi Vi  *  XL 

HrNJp  mhifl™  • 2 


1  2  itlNES  ♦  2*1 L 
260 


)  XL  >  2 

I)  NEXT  *  NEXT  ♦  2*1  L 


I)  IL  «  2 

i  GOTO  240 
.  ♦  5*1 L 

.)  NEXT  =  NEXT  ♦  2*1 L 
.GE  NEXT)  GO  TO  260 


IFINNKI  .GT.  9) 
NEXT  =44  4*1 L 

^  Ft LCASE  .EQ.  1 
JK1  *  NJIK.+1) 

ftlNjik  .EQ.  10 
NEXT  =  NEXT  *  1 
IFINJK1  .EQ.  01 

fPfcSsHK 

240  IF! (55-ILINES) 
250  FORMAT f inf ’ 

260  £8ntInUE 

RETURN 


SUBROUTINE  SAVECP! CP .DUMMY .NMAX.NJT > I SIZE .NCASES ) 

^I?Hfulf^T1^Ai^lfyTBiRfeAmVTi8K 

DIMENSION  CPI  600,10 ), DUrttY  I ISIZE) 

10N?NRlfEP2ON!E1AXP4AN5TTO  "*1TE  ™E  OLO  S°LUTI°N 

FIND! l'IWRITE+1 )  *«*  COMMENTED  OUT  BY  JAC*** 

DEFINE. THE  DUMMY.ARRAY 


NE  THE  DUMMYARRAY 

Me!-xWSBsi 

20  CONTINUE 


SAVE  THE  OA 
WRITE! I' 

50  prE 

END. 


?:IWRITE )  DUMMY 


^SUBROUTINE  W* >C ,KK .THETA, THS.TST, ML 

mm  si  ’ 

M&HI  f  I?!  $8?  *18*1  *  '¥meta'  ' 10 » 'TMS<  ^ » 10 » 


j^00* 

5 ) , THETA! 40 , 10 )  ,THSI 40 , 10 ) 


DEFINE 


INETHE  CAMBER  ANGLES  WHICH  RESULT  FROM  PITCHING 
KKI  =  KKfl  1  * 

IlfiliNM»*«2608o*  ,>am*,0EUI,/2•0,,,c,wa,-xcc,  /  CREF 


IFINWT  .EQ.  NMAX)  GO  TO  50 
NNT1  =  NWT  ♦  1 
DO  40  I  *  NHTl.NMAX 
30  EPSII.N)  »  0.06 
BETA! I, N)  *  0.00 
40  CONTINUE 


BTFtFS  ^I,»s  MM1CM  "ESULT  FRW  PITCHINe 

60  THETA! K^N)  «  0.00 

mcV'RJ  0'o8)  ™ETA,,(’N,  *  2,00  *  ‘WJXJK)  -  XCO)  /  CREF 

M’.V 68° 


.SUBROUTINE 


5.TST.Y, 


i - WWMkSWOR9 

THl%Sff^RA?E°&ERI^TIvi  WBBIIKtSEW“  "* 

DIMENSION  EPS) 600.10 ) .BETA 1 600 » 10 ) .THETAI  40.10) >THS(  40.10), 
1  TSTI40.10) 

DIMENSION  Y(40  )  .NWI40 ) 

DEFINE  AND  CAMBER  ANFLES  WHICH  RESULT  FROM  ROLLING 

So '48  K  *  l.NROMS 
TSTJK.N)  «  YIK  ) 

THETA(K.N)  *  TSTtK.N) 

THSIK.N)  =  0.00 
NHK  =  NH(K) 

- I  ;  l.FWC 

TSTIK.N) 


10 


PS) 

Eont=. 

CONTlNUI 


NJ1 


NHT 

0 


NMAX 


8 

8 


jo  60  X 

48  * 

^ROUTINE  ^M^^|^HS,Y.KK. 

?»!N^S?^iM!^sF^A^M^IT1^  F0R  ALL  0F  THE 

COMMON  /DERIV/  UO( 40  )  .CLQ.CMQ.CMQMC 
OIMErmON  EPS)  600 , 10  )  .BETA)  600 , 10 )  ,7 
DIMENSION  Y140  ).KK1 600 ) 

*$mk  > 

Y)K )  /  57.5 


,  THETAI 40 , 10 ) , THS  ( 40 , 10 ) 


DEFINE  THE  SEC 


0  K 
I  *  . 

INUE 


NORMALIZED  VELOCITY  INDUCED  BY  YAWING 
.295774 


10 

DEFINE  THE  ANGLES  FOR  ALL  FUNDAMENTAL  CASES 
DO  80  Ns  I.nCASES 
DO  30  I  =  l.NWT 
KKI  -  KK) I  I 

20  EPS(I.N)  =  -UO(KKI)  *  EPStl.N) 

BETA)  I, N)  *  0.00 
30  CONTINUE 


40 

50 


K  = 


THETAlK.Nl's  '-UO)K  *  THETAI  K.N) 

PI  "  ‘ 

ifikmax  .. 
ri  =  nwT  ♦  1 
70  1  =  nwtI 

PS)  1,74)  =  0.0 
ETA)  I  ,N)  =  0. 


1,NR0MS„ 

=  -UC 

0.00 

NflAX^EI^  NWT)  GO  TO  80 


NMAX 


BOXS 


,EVD3 »EVD4 .SHUFLl .SHUFL2 .HINGE 
BAKSUB .S0LV2 


tansv  l»£oaoz' 

INSERT  STAGE4.0UT2 .SAVECP .BCPICH .SCROLL .BCYAM 

*000ECTAN0V^50  ""VeIF  •  1 


KITH  STABILITY  DER 


C4 
Cl. 000  _ 
CO  0  1  0 


0.88750 

0.68750 

0.2750 

0.100 

0.100 

0.000 

0.200 

0.200 

1.000 

8:188 

0.900 

0.600 

1.100 

1.500 

3.000 

0.900 
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PROGRAM  JETFLAPIN  LISTING 


PROGRAM  JETFLAPIN 


TES  MAD 


U^wWSJiPhm^-"*  hill  ^ov!oi  the  p8uSIW 

1:  p^JSlli  $MmEihmf  drag 

3.  A  CAPABILITY  TO  INVESTIGATE  THE  EFFECTS  OF  - 
A.  PART  SPAN  FLAPS 

4.  L jStt!?g3ESIMNfJ»|4i0|p5l  METHOD )> 
PITCHING,  YAWING  AND  ROLLING  MOMENTS,  ETC. 

^pV^EAiiS^I^gTi8Kp8?E5M^R^8ArfElRgIgENVif^gGI^u8S6SfA5HIfgSRT 

AERODYNAMIc'cHARACTERlifick  RmfWHM 
VOLUME  I 

THE  ELEMELNTARYGVORTfxcgI?T|Sg!/TION  JET-HING 
VOLUME  II 

EVD  JET-WING  COMPUTER  PROGRAM  USERS  MANUAL 


INTEGERS  LUN 


i?  1  «  YES»2  *  NO* ) 


FOLLOWING  LINES  OPEN  THE  INPUT  FILE  TO  BE  CREATED 


PMsCRN 

prInt  * 


PRINT  »,  •  ( ENTER  W»  TO 

.ms  wslGsTF-«j?ji&T” 


C  CHI 


)  THEN 

THAT  FZLE  ALREADY  EXISTS.* 

•Z^R  ENTER  999  TO  RETURN  TO  EXIT  OPTION).' 


£2openFFile 


MM 

E«|nt  « 

RHte  *1, 

PRINT  * 

PRINT  # 

CALL  QUERY  (NANS) 

L  GO  TO  4 

!f° (NANS  ^EQ.  1)  THEN 

ELsl°I??NANS  .EQ.  2  )THEN 
GO  TO  Z 

ELSE  IFINANS  .EQ.  999ITHEN 

ELsf  ™  1 

WRITE  ( 6 >1242 ) 

GO  TO 
|ND..I 


Th«  OUTPUT  file 
*iZ* 

SIZE).  EXIST  ■  EXIST) 


ATE:  *, 
CREATING 


.  J 

^  njrmajspjm,- 

4  OPEN  (UNIT=LUN 
2 
2 


1  =  YES)2  >  NO* ) 


RECOR! 
STATUS* 


IATIiMf2F?TIAL,’ 

'^PmatteB*, 

,*  HJNKNOWN*) 


?^TRML^iRiSpFu?Egi?i?-?K^R§g^T?i^  input  data 

. 

WRITE  (6,6440) 

p{ 

FORMAT5^  JETFLAP  INPUT  PARAMETERS  *, 

1  •  K«********«****K**tt***ffW*M*  1  ,/  ) 

FORMAT  (1X,28H=*>  ENTER  THE  PROBLEM  TITLE: >/,5X,20H( 80  LETTERS  MAX 

I  IriUn 


6450 

6460 

1000 

1001 


FORMAT 


! !xA20A4 ) 


SUMMARY  OF  FIRST  LINE  OF  INPUT  DATA 


570 


in 


LINE  ' 
=  NO) 


OF  INPUT  DATA?*! 


SS*ECtf?i??) 

^  W^-feSi  TO  10 

WRl||  ! 6>fo^l )  TITLE 

CALL  QUE fty *  f  I  NANS ) 

IF  INANS.EQ.l )  GO  TO  8 

J8  RaaJ J0:K£|S jS5VsaR?oF85A5gisF?^  ^ 

io  1  s  YE|>  2  *  nS' 

C  WRITE  DATA  TO  FILE 

WRITE! LUN, 1000)  TITLE 

C~~sIc6w*LM£"iwUT*DATA--Gi^RAL”PLWF0RM"PARAMETERS~ 


NE  *OF  INPUT  DATA?', 


READ  GENERAL  GEOMETRY  CONTROL  DATA 
CALL  CLRSCRN 


PRINT  *, 
PRINT  *, 

Mb' fi¬ 
lm  5: 

WM- 

?8int  2 I 


♦s. 

PR_ 

PRI1 


»*>  f^RTHE 
areaf 

B»> 


_  WING  AREA,  IN  UNITS  OF  SPAN**; 
SPAN  IS  IN  FEET,  ENTER  ARE  I*  ‘  - 


EA  ZN  SQUARE  FEET. I R)* 


SPAN 


e^sgiT?!  .  r8E,?STREAM  * 


5^Rf8rREMi^  ^l^lEKArJc^^cfi^T 

VH  SEV^D^C^HSK^HILf ' F^°8sIJfTF5  ,?ER0’ ' 
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chef 

PRINT  ft,  '»>  ENTER  XMC,  THE  POINT  ABOUT  HHICH  PITCHXN6  MOMENTS  H 

lipf  2; :  wwwsti ?I°2sTM^^EX  '0W6IN,•  * 

fjEAD^jj.ft)  »C 

p||NT  ft,  •»«>  ENTER  XCG,  THE  WING  CENTER  OF  GRAVITY  LOCATION,  MEAS 
*PRINT  ft,  '  FROM  THE  NXNG  APEX  (ORIGIN).  THIS  MILL  BE  USEO  AS  TH 
‘PRINT  ft,  '  PITCHING  AXIS  FOR  COMPUTING  THE  STABILITY  DERIVATIVE 

ll  5: !  «««!!»  Mil*™*?: : 

~I5,»)  XCG 


SUMMARY  OF  SECOND  LINE  INPUT  DATA 


T0  20 

hSJIS  AREA, SPAN, CREF, XMC ,XC6 


NRITE  (6,5 


'  (NANS) 

Q.l)  GO  TO  1C 
VAREA' ,7X,’S 


IF  (NANS. EG. 1 )  GO  TO  10 

111  FORMAT  !  lxjil^XiFf  o!i7)  ’  ’SPAN*  ,7X,  'CREF*  ,7X,  ‘XMC '  »8X» 'XCG*  ) 

*90  ar oF  input  data?* 

C^MRI^fco  FILE 

40  FORMAT  l’^io?4  ,SPAN,CREF  ,XMC  ,XCG 


THIRD  LINE  INPUT  DATA— GENERAL  CONTROL  PARAMETERS  (FLAGS) 


pr|nt  *!  •  *  *  DEfir — 

print  :: :  > 0 

IDERIV 


EXECUTED  WITH  NO  STABILITY1 

HTUnam  BV  A* 


SUMMARY  OF  THIRD  LINE  INPUT  DATA 


600 


NR 


X,25H==>  f 

i|“p| 


m  smu^  INPUT  DATA?‘- 


|)  NROHS,NCASES,ISYMM,IPRINT 

!  I  JETFLG»IGTYPE  >IHINGE .IDERIV 

►  I 


m  las* 

# 


S  tAu^lx}9!^68,  ,1X’  '1SYft1'  •2X*,1PRIMT’ 1 


664  foRMAt 
csonrM#Hto  file 

WRITE I  LUN,4l  1  NROWS >NCASES>ISYMM»I PRINT j 
411F0RMAT«  1012  1  JhInSI  .HH* 


PI  =  Plft 

CRE  =  CREF 
xm  *  xr:g 
xc  =  XCG 
NRO  =  NRONS 
NC  =  NCASES 
ISY  =  ISYMM 
IPR  * 


I  det!?VISIr50icRetySe,  85  Ms  DEsmo 

8 

50  CAL  L  APPLY1 

70  ,  100  ,  120  1,  IR 
TY  DERIVATIVE  RUN  MILL  BE  EXECUTED 
IR  .ED.  2)  GO  TO  120 


REGULA 

£oLfo 


‘‘»1W 


PRINT  COMPLETION  MESSAGE  FOR  THIS  RUN  AND  GO  BACK  TO  BEGIN  A  NEW  RUN 
70  WRITE! 6.  80  I 

80  FORMAT!  1HO////  32X.10I 5H****» 1 ,  3H***/  32X, 

PROGRAM  HAS  REACHED  NORMAL  TERMINATION  */ 


1  53H*  THL  . . 

2  32X.10I 5H**»**  1 ,3H*** | 

C  PUT  IN  AN  OPTION  TO  DO  ANOTHER  RUN  OR  PRINT  A 

C  READ! 5,  20,  END=100)  TITLE 

C  90  IF! TITLE! II  .EQ.  CHECK  I  GO  TO  10 
C  GO  TO  30 


'9'  CARD  AND  QUIT.*** 


"  P‘r,! 


INVALID  RESPONSE  -  REENTER. 


*,  '««>  DO  YOU  NISH  TO  ENTER  ANOTHER  SET  OF  DATA?  (Y  OR  N)a 
.  (5,  MA1I'  1  ANS 
IANS.EQ. 'Y* 1  THEN 
GO  TO  4 
ELSE  IF  IANS.EQ. *N' )  THEN 
_  WRITE! LUN, 10101  CHECK 

Lprint  *, 

inB0.?0  94 

PRINT  * 

.1010  FORMAT!  A41 

:  PRINT  COMPLETION  MESSAGE  AND  STOP  EXECUTION 
100  NRITE! 6,  80  1 
_  110  STOP 

A  FATAL  ERROR  HAS  OCClRtED.  PRINT  FINAL  WSSA6E  AM)  STOP  EXECUTION. 


120  WRITE! 6,  130  ) 

130  FORMAT! 1 HO////6 2X , 2 1 4H****  1/5 IX , 1 1 ( SH 
1  31X,55H*  THE  PROGRAM  HAS  REACHI 


2  31X,11(5H*****  )/62X,2!4H****l  ) 

140  STOP 

- ***** 

END 

SUBROUTINE  CLRSCRN 


.*****)/ 

HED  ABNORMAL 


TERMINATION  «/ 


160 


C  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
'  ||turn*  lib$erase_page  a, ii 


luBROUTINE  APPLY 1 

THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  INPUT  FOR  REGULAR  CASES 

fev 

IFIISYMM  .LT.  01  NOALFA  =  0 

INITIALIZE  AND  INCREMENT  THE  CMU  CASE  CONTROL  COUNTER 
10  NcHCMU  =  0 
20  NEtSCMU  z  NEHCMU  *  X 

EXECUTE  THE  PROBLEM  FORMATION  STAGE 

°  EoLVoSiA40X,  60  ,  70  ,  80  I,  IR 
40  CONTINUE 

THE  PROGRAM  HAS  BEEN  EXECUTED  SUCESSFULLY 


THIS  RUN  HAS  BEEN  COMPLETED.  RETURN  TO  START  A  NEH  RUN. 
60  IR  *  2 

THl|ERUNNHAS  BEEN  COMPLETED.  NO  FURTHER  RUNS  FOLLOW. 

70  IR  =3 


SoffH* 

**#****#*##*HH 

luBROUTINE 


HAS  OCCUREO.  RETURN  AND  QUIT. 


APPLY2 


THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  INPUT  FOR 
STABILITY  DERIVATIVES 

CHECK  ON  STATUS  OF  CONTROL  FLAGS 

10  tei 

IFIISYMM  XGE.  0)  GO  TO  SO 
ISYMM  =  0, 


ZOl^^fiHfVlOX^IHTHE  JSYMMJLgG  ^I^^^AN^NT^YMETRIC , 

EXCECUTE  THE  FIRST  RUN 

FORMULATE  THE  PROBLEM  AS  USUAL 

8oLVo  I  40X  110,  100,  110),  IR 
40  LOGIC  s  1 

WRITE 1 6  70  ) 

70  FORMAT  I  lfil////////////  37X>11<4H*#*«  ),2H**  / 

1  37X,46H*  SECOND  RUN  FOR  STABILITY  DERIVATIVE  CASE  «  / 

2  S7X,11(4H»*»*)»2H*») 

IF  THIS  IS  A  iYMETRIC  MING,  SWITCH  IT  TO  ANT I -SYMETRIC  FOR  RUN  2 
80  IFIISYMM  .EQ.  0)  ISYMM  =  -1 

im,this*is*the*end*of*the*li?®***#*,HHHHHHHHHHHHHHHHHHHMHHHMHHHHHHHHHHI 
100  return 

1,0  BtM 

END 


161 


i 


SUBROUTINE  STA6E1 

Hf HfE^t^iAeiS^T^0^?^El5gloffi?S^kAGS '  "* 

cStlOM/SPIRIT/  NIKMAX, NEHCMU.NOALFA, LOGIC »IR 

IKiM 
^SWf'I'Si  viSs-cti 

USER  INPUT  ERROR 

PRINT  ERROR  MESSAGE .BECAUSE  IGTYPE  MAS  THE  HRONG  VALUE 


.FIRST  CHU  CASE 

[NR OKS  .LT.  3))  GO  TO  SO 


JYPE  .EG.  2 )  )CALL  SGMAINl NQALFA,ZR) 


12/ 


8 

8 


to’ 


REQUIREMENTS 

It* 


»w  wamtfffi 

RgTURN_N^RMALLY  TO  THE  CONTROL  PROGRAM 

BHBxWR  55s!* «“““  THE 

90  FORMAT! lHl/55X>7HNk3HS  =,131 


NROHS  VALUE  IS  UNACCEPTABLE 


RETURN  ABNORMALLY  TO  MAIN. 


_  A  FATAL  ERROR  HAS  OCCURED. 

10°  Ig  ■  « 

C  RETURN  TO  MAIN  AND  BEGIN  A  COMPLETELY  FEN  RUN 
110  IR  =2 

c  retMo^in  AND  STOP  THE  EXECUTION 

llo  Return 


8 


c 

c 


SUBROUTINE  SGMAIN! NOALFA.IR) 

^iSS^SHTrahSo*11  GE0METRY  CALCULATI0MS  F0R  THE 

COMMON/M ATHEW/NC ASES , ISYMM  > IPRINT , JETFlG , IGTYPE »IHINGE 

READ  THE  MING  PLANFORM  GEOMETRY  DATA 
10  CALL  INPTSI IR  I 

ji:V4||:-!fSiT§nkoXLETO'1'' 

IF( IGTYPE  .EG.  ^ I  CALL  XLETR2 
NgRMALIZjMTH|  MING  PLANFORM  GEOMETRY  DATA 

READ  THE  JET  SHEET  GEOMETRY  DATA 

30  CALL  INPUTJ! IR I _ 

IFIIR  .EQ.  2)  GO  TO  100 

Wii 


.the.evo  elements 

GO  TO  100 

CONSTRUCT  THE  SET  OF  FUNDAMENTAL  GEOMETRIC  CASES 


DO  90  N  *  1 .NCASES 
LCASE  •  N 


EOMETRY  AND  CONSTRUCTED  CASE  DATA  IF  DESIRED 
"  I)  WRITE  1 6,  70  1 


READ  THE  GEOMETRY  FOR  THIS  CASE 
50  CALL  INCASE ( LCASE , NOAL  FA ) 

PRINT  THE  GEOMETI 

70  iflWt«HlV»* 

CALL  CLRSCRN 

iilm  #’  'IX>  THE  CONSTRUCTED  CASE  BATA?' 

EAD  1 5*  MAll' 1  fiNS  ' 

F.LANS.EQ. -  - 


75 


IANS: EG'.  ’Y*  1  THEN 
GO  TO  80 


162 


Yo 

i!fo  'i 


'N* )  THEN 


XNVALIO  RESPONSE  -  REENTER.* 


IsK 

1010  FORMAT*  A4) 

18  8MPLCASE’ 

.  RETURN 

F  AN  ERROR  HAS  OCCURED.  RETURN  ABNORMALLY  TO  STAGE1. 

100  SeturS 

IuSrOUTINE  INPTS(ZR) 

MTA  FMM  ™E  KEYB0AR° 


S888B^8Vi; 


*28)’ 


•xmtUi 


INPUT  THE  SECTIONAL  PLANFORM  DATA 
10  NUTYPE 


SECTION  CENTERLINE  LOCATION  CARDS 

ISCv®  . 


SECTION  CENTERLINE  LOCATION  VALUES* 

ISOT-WWIi: 

"km  mbseTS  vnknueti  > 

b)  LEFT  MING  TIP  FOR  NON-SYM*TRIC  MINGS. ' 

A  MAXIMUM  OF  40  SECTIONS  IS  ALLOWED. * 

l,NROMS 
I  K.NROWS 


WRITE*  6  >12  I  K..IW 

12  fErmAT flX,’  ENTER  SECTION  CENTERLINE 

.  *PRINT  * 

15  CONTINUE 


,12,*  OF  * ,12, '  SECTIONS.*, 


SUMMARY  OF  SECTION  CENTERLINE  INPUT  DATA 


CALLtCLRSCRN 
£r!n|  *,  ■  i 

Ppfig  h  ;  is,  IM 

PRINT  *,  THg.  PROGRAM  MIL 


*, 


PgJN?  * 

ii^fokmat!.?  iXj  ' 


***  you  ARE  ENCOURAGED  TO  CHECK  THIS  DATA I  Mm 
ENTER 

reenter  all  your  data: 


SMI FP8  ^ERLINE 1NPUT 

,o  2o 

M  Sliljt 

CALL  QUERY  (NANS) 

IF  (NANS.EQ. 1 )  GO  TO  10  . 

at  !//iix’, 'DoEyou  wJsh  to^change/rEenter^h^s  INPUT  DATA?', 

,25H==>  ENTER  1  *  YES)  2  =  NO) 


It  FORMAT 


l/flX,<c»n 
20  CONTINUE 

WRITE  DATA  TO  FILE  _ 

WRITE (LUN.  18  )  ( Y( K )  ,K«1 ,NROHS ) 

18  FORKS T ( 8F10.6 ) 

19  FORMATUX,5X,'SECTION_«SI2,SX,^CENTERLINE  *’>F10;A)_ 

"wiNG-SECTION-TYPi”cARDs”” . 


CALL  CLRSCRN 

m  *,  * 

PjjlNT  • 


WING  SECTION  TYPES' 


PRINT  * 
PRINT  * 
PRINT  « 


•  r  v 


NTER  .... 

ARRANGE  ME  NT  |F 


MING  ROW  TYi 


THE_T^PE  NUMB|R 


ANY 


_  JF  EACH  Nil 

ELEMENTS  IN  A  ROW 
SECTIONS  HAVING  THI 
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noono 


IT 


JP"  * 

pix 


23  PRINJ  * 


* 

ft. 


OF  ELEMENTS.  ALL  WITH  THE  SAME  SPACING  FROM  THE  SECT 
LEADING  EDGE  ARE  OF  THE  SAME  ICTYPE .  BEGIN  KITH  A  TY 
1  AND  WORK  IN  SEQUENCE,  2.3, . . . I ASCENOING  ORDER). II)' 
A  MAXIMUM  OF  10  SECTION  TYPES  IS  ALLOWED.' 


DO  24  K  ■  l.NROWS 

ife’22!  fcWffif k, 
WWi’F'  ^TOximu 


NNTYPE  »  ICTYPEIK ) 


S: 


MUM  OF 

MMMMM  LI 

YOU  MAY  ENTER 


vm 


PRINT 

»m;«s 


ION  TYPES  IS  ALLONED. ' 

u  It  H  It  M  W  ' 

MORE  DIFFERENT  TYPE.1 


13) 

,12,' 


OF  ',12,'  SECTI 


SUMMARY  OF  NING_SECTION_TYPE_INPUT  DATA 
CRN 

AR' 


NR 

“iF 


/]1X,25H==>  ENTER"! 

sHfefcu 


OF  WING  SECTION  TYPE  INPUT  DATA?' 
*  YES I  2  =  NO) 


MW 

Y 
G 

I 

l 

IF  INA'NS.EQ.l  )  GO  TO  23 

7  FORMAT  I IX, 7X, 'THE  WING  SECTION  TYPE  DATA  IS:') 

,9  £0RMATI1X,*X, 'SECTION  =' ,12, 3X, 'SECTION  TYPE  «',I2) 
25  CONTINUE 
WRITE  DATA  TO  FI 
WRITE I LUN,  30 
301  FORMATI 4012 ) 


m  wvr- T0  25 

WRITE  6,29)  ( K »ICTYPE ( K ) »K=1 ,NROHS ) 
WRITE  ( 6,16  I 
£ALL  .QUERY.)  NANSJ 


( ICTYPEIK  )  ,K=1 ,  NR  OHS ) 


NUMBER  OF  CHCRDWISE  WING  ELEMENTS  CARD 


CAL 

HT 

PR 

k 


♦hi; 

i 


Af> 

Print 
334print 


CLRSCRN 

ft,  '  CHORDWISE  WING  ELEMENTS' 

S:  :*=>  WbH’dE  Sf°e!Im^sm 

ft,  '  BE  ENTERED  IN  ASCENDING  ORDER  BY  ICTYPE.  THERE  MAY  B 
«,  '  FEW  AS  2  ELEMENTS  PER  SECTION  TYPE  OR  AS  MANY  AS  20. 

ft 


28 


rjKAItl  6,4Z 

NfN°i5falN 

IF  I  ININ  .L- 


HUipii 

-  -  )  NIINI 

.LT.  2)  .OR. 
16, 3l)  NIN 
*.  '  A 

____  ft,  * 

PRINT  ft,  ' 

£M,GV°  ^ 


ININ  .GT.  20))  THEN 


»  R^-iamsws &1 wj&wi’rSFHffl 

30c6ntinue 


CTYPESI2,' 


OF  ',1 


SUMMARY  OF  CHORDWISE  WING  ELEMENTS  INPUT  DATA 


CALL  CLRSCRN 
WRITE  16,36) 

36  FORMAT  I lX,*' 

WRITE  16,1?) 


X&TW  ELEMENTS  INPUT  DATA?’, 

0  35 


_  .6,37. 

WRITE  16,39)  (N,NHN),N*1,NMTYPE) 

WRITE  16,16) 

CALL  QUERY  I  NANS) 

IF  INANS.EQ.l)  GO  TO  33 

37  FORMAT  I1X,7X,'TH|  CHORDWISE  WING  ELEMENTS  DATA  IS: • ) 

35  CONTINUt:*’**’  SEC^I0N  *'  ,Z2,3X, 'CHORMuSE  ELEMENTS  »',I21 

WRITE  DATA  TO  FILE 

WRITE!  LUN,  301  >  I NI I N )  »N*1  .WfTYPE  ) 

DIVISI0N  data  for  each  row  type 

wiNo'cHORDwIsEiLEME NT 'COORDINATES "CARD . 


CALL  CLRSCRN 
PRINT  « 

PRINT  ft,  ' 
PRINT  * 


WING  CHORDWISE  ELEMENT  COORDINATES' 
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W.-' 


u 


*>  ENTER  X8H,  THE  CHORDMISE  COORDINATE  OF  EACH  VORTEX  P 

WWWWtm  B8UR: 

REQUIRED  FOR  EACH  KING  SECTI 
THE  Nl»©ER  OF  OF  COORDINATES  HILL  CORRESPOND  TO  THE 

?$EEtf®  WmWaMEm  S*odAnd  hill  aut 

BE  ENTERED  FOR  YOU.  THE  LAST  VALUE  MUST  BE  LESS  THAN 


46 


45 


rRINT  *. 

PRINT#,1 

♦on  type: 

PRINT  #, 

♦NUMBER* 

Rfiff  5: 

few5?  M’T 

W,|4’45  L  s't.NIN 
WRITE <6,421  N 

fe¬ 

mora:  ._ _ _ 

HtS'  v  ’eatHuM,1JH.v« 

i»r 4{ 

CONTINUr 


<YX|WN’ VlT; N0. 01 . . OR .  (XBNN  .GE. 


I. on  THEN 

BETWEEN  0.0  AND  1.0* 


CLRSCRN 


CALL  i 

PRINT  »,  •  ##»  LEADING  EDGE  VALUE  OF  0.0  ENTERED  FOR  EVD', 

_  ■  ELEMENT  I  ##«’ 

a.F10.6) 

_ _ _  _ VO  ELEMENT  *,«,•  OF 

_ ♦SI2./J _ _ _ 

C  "sUMMARY'oF"cH0RDwfsI"ELEf«Nf'c00R0iNATi"iwuf"DATA’”"" 

CALl’cLRSCRN-- . . . . . 

UOTTC  (6*47) 

47  FORMAT  < IX, 'SUMMARY  OF  ELEMENT  COORDINATE  INPUT  DATA?', 
1/,1X,25H=*>  ENTER  I  =  YES)  2  =  NO < 

CALL  QUERY  I  NANS) 

IF  (NANS.GE.2)  GO  TO  60 
54  CALL  CLRSCRN 

WRITE  <6,48)  NHTYPE 
READ  <5,» )  NSEC 

WRITE  16,49)  I L ,XBH( L, NSEC ),L=1, Nil  NSEC  ) ) 

aii'gtur- 

NIN  3  NI(N) 

XBNir  '■ 

DO  _ 


56 


55 


<XBHN  .GE.  1.0))  THEN 


nuicio,i3i  Ljrtirt 

READ) 5,  •  )  XBW( L,N ) 

XBWN  =  XBWI L ,N I 
IFXXBWN  .LT.  0.0)  .OR. 

WRITE <6, 41)  XBWN 
PRINT  *,  '  COORDINATE  VALUE  MUST  LIE  BETWEEN  0.0  AND  1.0' 
PRINT  #,  •  PLEASE  REENTER' 

GO  TO  56 
END  IF 
CONTINUE 
GO  TO  50 

ELSE 

PRINT  #,  '  DO  YOU  WISH  TO  CHECK  ANOTHER  SECTION?' 

PRINT  «,  '  ==>  ENTER  I  *  YES>  2  =  NO’ 

CALL  QUERY  ) NANS  ) 

IF  < NANS.EQ. 1 )  GO  TO  54 
CONTINUE 
END  IF 


ON  TYPE  DO  YOU  WANT  TO  LOOK  AT?’ 


48  FORMAT  < IX, 7X, 'WHICH  SECTION  TYPE  DO  '  _  _ 

1, /, IX, 7X, ’ENTER  A  VALUE  BETWEEN  1  AND  • »I2, 1 , ’ > 

49  Format  < lx, 5x, -element  number  =  • , i 2, jx, 'coordinate  >>,fio.6) 

C  SeFINETTHEE NUMBER  OF  CHORDMISE  DIVISIONS  FOR  EACH  ROW,  USED  LATER 
DO  70  K  *  l.NROWS 
ICK  »  ICTYPEIK) 

NW<  K  )  *  Nil  ICK) 

70  CONTINUE 
C  WRITE  DATA  TO  FILE 

DO  80  N  »  I,NHTYPE 
NIN  a  NUN) 

WRITE) LUN,  18  )  )XBM) L,N),L*1,NIN) 

„  80  CONTINUE 

_  ^TU-1 


TURN 


C 

C 


END 

SUBROUTINE  INPUTJIIR) 

THIS  SUBROUTINE  READS  THE  JET  ELEMENT  GEOMETRY  INPUT 
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THE  NUMBER  AND  CHORDMXSE  SPACING  OF  THE  JET  ELEMENTS  ARE  READ 

llcf&Et'lo'l  ,’f^YP?? 


40  )  ,IJ(  40  ) 

)> 


mmam 

Mh'in oF  wv 

®FLG*  .NE.  0)  GO  TO  90 


RgAj^T^TYPi  OF  DIVISION  FOR  EACH  RON 


mr 


viouku  T°  ™E  WHS  stCTI0N  data1 


JET  SECTION  TYPE  CARDS_ 

. . 

JET  SECTION  TYPE  NUMBERS' 

skum 

THE  ARRANGEMENT  OF  JET  ELEMENTS  IN  A  SECTION  DETERMI 
THE  JET  SECTION  TYPE.  ANY  SECTIONS  HAVING  THE  SAME  N 
OF  ELEMENTS,  ALL  WITH  THE  SAME  SPACING  WITH  RESPECT* 
THE  KING  SECTIONAL  CHORD  TO  WHICH  THEY  ARE  ATTACHED* 
OF  THE  SAME  TYPE.  BEGIN  WITH  A  TYPE  NUMBER  OF  1  AND* 
IN  SEQUENCE,  2 ,5, ...» ASCENDING  ORDER).* 

A  SECTION  WITH  NO  JET  HAS  A  TYPE  OF  0  I  ZERO). * 

ERE* 


•**>  ENTER  IJTYPE ,  THE  TYPE  NUMBER  OF  EACH  JET  SECTION. (I 


♦p^Nwork 

PRINT  *, 

PRINT  * 

PRINT  «, 

PRINT  * 

PRINT  *, 

PRINT  «, 

PRINT  *, 

PRINT  * 

PPINT  *, 

THEN 

/mIxxmum  of  io  jet  section  types  is  allowed 

I NT  *,  '  *****  WARN  IN  G  ****** 

.  ,|nT  *,  *  YOU  MAY  ENTER  ONLY  0 W  MORE  DIF _ 

ii  UcitumwmiitfKiL- 

SET  UP  FOR  ROW  CONSISTENCY  CHECK 


MORE  DIFFERENT  TYPE.* 

OF  '  ,12, ' 


DEFIgE8THEKNUM|ERR0FsCH0RDHISE  DIVISIONS  FOR  EACH  RON 

§JIKL*V.  *  __  _ 

80. 


0)  GO  TO  80 


NJIK*  =  NItIJK) 

CHECK^FOR^ROH  CONSISTENCY  ON  EITHER  SIDE  OF  JET 


CONTINUE 
ECK  FOR  RC  . 

:  S 

•  Efi 


TO  170 


AN 

170 


Sr  i  j 

o'  So  li  ='2,NR0WS 

if:  nm  = , 

%y0:s?:  8  mm  s  s 

.COUNT  a  XCOUNT  ♦  1 

-LT-  **  60  T°  l7° 

ERROR  HAS  OCCUREO. 

hffl :: '  ?eH?qKT 

.Mi: 

!8ntinue 
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ENTER  DATA  AGAIN. 


sections  «t  «■ 

UNBLOHNUWINGPsic?IOTeRINBOARjHOR  OUTBOaId  OF  JkNY^IE?.* 


190 

SUttlARY  GOES  HERE 


NUMBER  OF  CH0RDW1SE  JET  ELEMENTS  CARD 
CALl’clRSCRN  .  . 
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PRINT  * 
PRINT  *, 
PRINT  * 
PRINT  *» 
PRINT  *» 

PRINT  », 


C  REAl 


28 


*{?§  »W 

life 


■  CHORDNISE  JET  ELEMENTS' 

:m>  SAMP:. 

'  BE  ENTERED  IN  ASCENDING  ORDER  BY  IJTYPE.  THERE  HAY', 
FEN  AS  2  ELEMENTS  PER  SECTION  TYPE  OR  AS  MANY  AS  10 ' 


HORDHISE  DIVISIONS  (ELEMENTS)  IN  EACH  ROM  TYPE 
YPE 


NRITE 
PRINT  * 

RHF S: 

"TO  28 


NiS*’ 


(NIN  .GT.  10))  THEN 


OF  10* 


aJpiHi^awwiw  s’jRmus  vsmnfis& 

SO  CONTINUE 
SUMMARY  GOES  HERE 


OF 


JET  CHORDNISE  ELEMENT  COORDINATES  CARO 


PR^NT 
PRINT 


JET  CHORDNISE  ELEMENT  COORDINATES' 

A  SET  OF  COORDINATES  IS  REQUIRED  FOR  EACH  JET  ' , 
NUMBER  OF  OF  COORDINATES  HILL  CORRESPOND  TO  ' , 


L  CLRSCRN 
* 

_  *,  ’ 

PRINT  * 

PRINT  »,  '  * 

*PRJNt”* , •  TRAILING  EDGE.  ITS  COORDINATE  MUST  BE  1.0  AND  MILL’ 
+  NT*’  ®E  EMTERED  F0R  you-  THERE  IS  **>  maximum  VALUE.' 

N  *  ■*>  ENTER  XBJ,  THE  CHORDNISE  COORDINATE  OF  EACH  VORTEX' 

POINT  IS  DEFINED  AS  THE  "PEAK"  POINT  ' , 


'  THE  VORTEX 
EVD"S.(R)' 


R 

PRINT  *, 

POINT. 

PRINT  *, 

*pr?R  * 

READ  THE  CHORDNISE  DIVISION  DATA  FOR  EACH  RON  TYPE 
8?NS2  NlfNI  VRt 

)  XBJ(L.N) 

xbjilTn) 

IN  .LE.  1.0)  THEN 

"*V  .  ^COOROJNATi^AL^T^ST  BE  GREATER  THAN  1.0' 
endg?fto  ^ 

PRINT  * 

CONTINUE 

F10.6 ) 

EVD  ELEMENT  ',12, 


46 


HR1 

NRI 

PRI 

9 


*«•- 

’ WRITE  ( 
PRINT 
PRINT 


.THIS  IS  HITH  RESPECT  TO  THE  CHORD  OF 
ION.  * 


iRMATf  1X,5X,30HCHQR0HISE  ELEMENT  COORDINATE  «,l 
iRMAT I IX  »  FOR  JET  SECTION  TYPE  NUMBER  ’  ,12  I 
iRMATUX,'  ENTER  CHORDNISE  COORDINATE  FOR  JET 


FOl . 

FORMAT (  . 

'  OF  ' ,12 


./) 

HERE 


SUMMARY  GOES 
Return 

S  NO  JET  FOR  THIS  RUN 


THERE 
*0  DO 

IJTYPE (. 
NJIK)  *  0 
100  CONTINUE 

RETURN 


ii}0  K  *  I,  NR  OHS 
- K)  *  0 


luBROUTINE  XLETRKIR 


THISSUfROUTI 

Srdi  |TrS2 


READS  THE 


CWTTON/MARK/NROWS  ,NRONSJ  ,NHT  ,NJT,NMAX  >NN(  40 )  ,NJ(  40 )  ,IH(  40 )  ,1  J(  40 ) 
C0MM0N/GE0M1/Y 1 40 ) ,CHORD( 40 ) , DELTA! 40 ) ,XB( 600 )  ,XI( 600 ), DELI  600 ) , 
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X  D(40  ),KK( 600 ) .ITYPE! 600 ) 

?8U!8^!)^?^X0f40 ' ,XTRiiu  4§  » ‘TiNLEl 40 ) ,TANTE(40 ) 
DIMENSION  YPI40),XLE(40),XTR(40) 

’LlA5iNS*AND'TRAf[iNG"i05i”c0ORDiNATls  . . 


Mia?1 . 

PRINT  *, 

HBH  2, 

* PRINT  *, 

*m  2: 

*PRINT  «, 


CLRSCRN 
* 


Rfiff  2: 

4print  *, 

*0RINT  *, 

+PRINT  *, 
PRINT  * 


|NT^_AS  A  MINIMUM  THE  COORDINATES  FOR  THE  TIP  AND* 
- - i^TEsjSlf  *  ALSO  REQUIRED  FOR  SECTIONS  HHICH  *, 


'<  5,  **  »  N 

gjfliif? 


• hI aIur f ^ ES ARI Ff R°?°TT hI LBHOR§HIsf ’DISTANCE,  * , 

TRlsll8Tfv^  eSgE*RLINE'  FR0M  ™E  Y‘AXIS  T°  ™E  '* 

IN  UNITS  OF  SPAN. * 

.THEPROGRAM  ASSUMES  A  STRAIGHT  EDGE  EXISTS  BETFEEN*  , 
.E^Rgg^HERE  AND  MILL  INTERPOLATE  BETWEEN  THE  INPUT* 
.TJJolcTION  CENTERLINE  COORDINATE  IS  AUTOMATICALLY*, 
TO  i He  DATA  FILE  FROM  YOUR  PREVIOUS  INPUT.!R,R)* 

SEHOW°MANY°w{fS^|CTIONS  HILL  YOU  BE  ENTERING*, 
IRD1NATES  FOR?* 


NSEcf" 
IT.  NROVI 


.  (OWS)  THEN 
NR0M5 

PLEASE  REENTER* 


10  READ! 5 
IF  INC 
WRIT 

PRINT  *, 

GO  TO  10 
END  IF 

CHANGE  TO  CORRECT  NSECT  IF  IMPROPER  VALUE  ENTERED 
PRINT  H 

WRITE 1 6,31)  NSECT 
WRITE  (6,161 
CALL  QUEM  I  NANS) 

IF  INANS.EQ.l)  GO  TO  9 
READ  XLEAD  AND  XTRAIL 

PRJNT  *,  *  BEGIN  AT  TIP  AND  WORK  IN.  TIP  SECTION 


4? 


»?:•  •  s'“** 

:livE(fND*PRIN 
HRIT|(6,43)  YP(N) 

iU*' 

t!S?IE«.6,45)  JT| 


*  1. 


CENTERLINE  COORDINATE  DATA 


* 

1?  fflS&Vl 

41  FORMAT! 

42  FORMAT) 

43  FORMAT! 

44  FORMAT! 
DRMAT) 
DRMAT) 
•COORD 


run 
45  FOR 

4^1,  *C 


5X 

?x,i 


R(N) 


USER  8f  llcllwi  WM  II  MUMMI*'* 


.X ,5X , 30HCHORDHISE  ELEMENT  COORDINATE  =,F10.6) 
X,*  FOR  SECTION  (ROW)  NUfSER  ",I2> 

X,*  SECTION  CENTERLINE  COORDINATE  =  *,F10.6) 

It  m 


NTER  THE 


fiiTE 


NUMBER 


DZATED  NI 


47 


SUMMARY  OF  LEADING  AND  TRAILING  EDGE  COORDINATES  DATA 

HKBwSfT 

. . 


FORMAT  )ix, ‘SUMMARY  OF  LEADING/TRAILING  EDGE  COORDINATE  DATA?* 
1/»1X,25H«*>  ENTER  1  =  YESl  2  *  NO) 

CALL  QUERY  (NANS) 

IF  (NANS.GE.2)  GO  TO  60 
WRITE  (6,46) 

WRITE  (6,49 ) 

WRITE  (6,52)  (YP(N),XLE(N),XTR(N),N*1, NSECT) 

WRITE  C 6*16  l 
-  QUERY  (NANS) 


46 

14i/;ix 

25 ! 

6r 


„  f f^i’nans.eq.i  )  GO  TO  5 

5888?  !»:&M°2?l!i*?S 

St  RuShs), \!Si.r - 

ESaVTSM*^10*** 

»"?sts  i°/aicT 

ITE(  LUN,  101  )YP(N),XLE(N),XTR(N) 


THIS  INPUT  DATA?* 


LEADING  EDGE' ,5X, 'TRAILING  EDGE 


, 

,/) 
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101  EQRMATJ  3  Flo.  *) 


CONTINUE 


AFTER  NSECT  SETS  OF  COORDINATES  HAVE  BEEN  INPUT 
02  » 


OUTPUT  A  9  CARD 
WRITE! LUN,  1 
102  FORMAT l  *9 

IR  =  1 
RETURN 


SUBROUTINE  XLETR2 

lRilElo!oA^SlNG?EANOTEMf HA^H^PLAfeFO^OUTLINE^T6?!  SySeTRIC . 


X  _  LM  *tU  I  »f\f\  1  OUU  '  }  *■  I  I  "Cl  CUU  I 

COMMON/^EgM|/XljiEADI  40 )  ,XTRAILI  40  )  ,TANLE  ( 40  )  ,TANTE I  40 ) 
T RAPiioi 6 AU_HINg”pl ANFORM* PARAMETERS" 


^ELtCLRSCRN 


PRINT  * 
PRINT  * 
PRINT  * 

CALTO!o 

PRINT  W, 
GO  TO  15 
10  PRINT  * 


^TAEpITOo^niI0M?<ffl!T^1 


AfPIpANRATSPANR/MARElVI°USLY  SUPPLIED  DAT* 

'==>  THE  CAI  CULATED  WING  ASPECT  RATIO,  t 

READ  The  fundamental  planform  parameters 

PRINT  *,  '==>  ENTER  THE  WING  ASPECT  RATIO,  ARATIO  IR). 
READ  (5,*)  ARATIO 


ARATIO  s',  ARATIO 


15  PRINT  * 
PRINT  * 


_  .  '*=>  ENTER  SWEEP,  THE  SWEEP  ANGLE  OF  THE  QUARTER-CHORD' 

PRINT  *,  '  LINE,  IN  DEGREES. I R  r 

READ  (5,*)  SHEEP 


PRINT  * 

PRINT  * 

PRINT  * 

PRINT  *. 

READ  15,*)  TR 
PRINT  * 


>  npui  nsmiui) 

THE  AXIS  OF  SYMMETRY,  THE  WING  ROOT . 1 R P 


SUMMARY  OF  TRAPEZOIDAL  WING  PLANFORM  PARAMETERS  INPUT  DATA 

CALl“cLRSCRN  . 

11. FORMAT 


$  rarrm 

IF  (N£HS.GE.2)  GO  TO  20 


PLANFORM  PARAMETERS  DATA?' 


C 

c 


PRINT  * 

WRITE  16,12  )  ARATIO, SWEEP, TR 
WRITE  ! 6,1b  ) 

CALL  QUERY  I  NANS) 

_  IF  (NANS.EQ.l)  GO  TO  10 

12  FORMAT  I  IX, 'ASPECT  RATIO  »• ,F10.6,3X, 'SHEEP  =',F10.6, 

13X, 'TAPER  RATIO  =',F10.6,/) 

16  FORMAT  ( // ,1X, 'DO  YOU  WISH  TO  CHANGE/REENTER  THIS  INPUT  DATA?’, 

20 ENTER  1  ‘  Y*Sl  2  =NOi 
WRITE  TO  DATA  FILE 

ySillUyN.  lOO  )  ARATIO, SWEEP >TR 
100  FORMAT! 3FlO. 6) 

PROCESS  VALUES  FOR  USE  BY  CHECKING  ROUTINES 

COMPUTE  THE  GENERAL  PLANFORM  CHARACTERISTICS 
B2  =  SPAN  /  2.00 
SW  =  SWEEP  /  57.295779 

MV.  2:8»TR)  *  CROoiVli"  ,*ARATI0’ 

CMAC  --  8.052  5W/TgiTS.Tr<(fH8*«1.0.TR„ 

^^e^IpaS-0'  CREF  *  CMAC 


COMPUTE  THE  LEADING  AND  TRAILING  EDGE  COORDINATES 
-  =  l.NROWS 


DO  60  K 
YBAR  =  Y(K ) 

IFIYBAR  .LT.  0.0)  YBAR  =  -YBAR 
XLEAD(K)  *  XLB2  *  YBAR 
C  =  CROOT  *  ( 1.0-1 1.0-TR)*YBAR) 

XTRAILIK)  *  XLEADIK )  ♦  C 
60  CONTINUE 

RETURN 
***«« 

END 

SUBROUTINE  N0RM1 

THIS  SUBROUTINE  NORMALIZES  ALL  WING  PLANFORM  GEOMETRY  BY  SPAN/2 
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B2 

/  BE 


COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT .NMAX.NW! 40  ),NJ( 40 1 ,IWt 40  > ,1 Jl 40  ) 
COMMON/JOHN/  AREA ,$P AN, AftATlO.TR, SWEEP, CREF .CMAC.CBAR.XMC .XCG 
C0MM0N/GE0M1/Y (  40  )  .CHORD! 40  )  .DELTA!  40  )  ,XBI  600  )  ,XI(  600  )  .DEL!  600 ) » 

1  0140)}  KK  (600  ).ITYPEI600> 

.  COMMON/GEOME/XLEADI  40  )  .XTRAlL!  40  )  ,TANLE( 40  )  ,TANTE 1 40 ) 

10  BE  =  SPAN  /  E.00 
AREA  =  AREA  /  B2**2 
CREF  =  CREF  /  B2 
20  XNC  =  XMC  /  B2 
XCG  =  XCG  /  BE 
DO  40  K  =  1, NROWS 
30  XLEAD(K)  =  XLEAD(K)  / 

40  SfitfMt1  =  XTRAIUK) 

IrATIO  ='SPAN  *  SPAN  /  AREA 
RETURN 
***** 

END 

SUBROUTINE  BOXS(IR) 

THIS  SUBROUTINE  CONSTRUCTS  THE  GEOMETRIC  PARAMETERS  FOR  ALL  THE 
EVO  ELEMENTS  ON  THE  HING  AND  JET 

COMMON/MATHEW/NCASES,ISYI*l,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/MARK/NROWS, NROWSJ ,NWT ,NJT , NMAX.NW! 40  ),NJ( 40  )  ,IWI 40 ) >1 J( 40 ) 
COMMON/JOHN/  AREA .SPAN, ARATIO.TR, SWEEP ,CREF, CMAC.CBAR.XMC, XCG 
C0MM0N/GE0M1/YI 40 > , CHORD! 40  )  .DELTA! 40  ) ,XBI 600  ) ,XI( 600  ),DELI 600 ) , 

1  Dl 40  )  }KK( 600  )  .ITYPE1 600  ) 

COMMON/GEOME/XLEAD 1 40 ) .XTRAI LI  40  ) ,T ANLE l 40  )  ,TANTE ( 40  ) 
COMMON/SGl/XBWI 20,10)  ,XBJl 20,10)  .ICTYPEl 40  )  .IJTYPE ( 40  ) , 

1  FMTYPE .NJTYPE 

CONSTRUCT  THE  ELEMENTS  ON  THE  WING 

COMPUTE  SECTIONAL  DATA 

10  CHORD!  1)  =  XTRAI  LI  1 )  -  XLEAD(l) 

DELTA! 1  )  =  1.00  -  Yl  1 ) 

CMAC  =  CHORO! 1 1**2  *  DELTA! 1 ) 

DO  30  K  =  2.NR0WS 
20  CHORD!  K)  =  XT  RAIL!  K  )  -  XLEAD(K) 

DELTA!  K )  =  Y(K-l)  -  Y(K)  -  DELTAIK-1) 

IF! DELTA! K  )  -LT.  0.0)  GO  TO  190 
_  CMAC  =  CMAC  ♦  CHORD!  K)** 2  *  DELTA!  K) 

30  CONTINUE 

CHECK  THE  VALIDITY  OF  THE  SECTIONAL  ALLIGNMENT 
YD  =  Y(NROWS)  -  DELTA!  NROWS) 

IF! ( ISYMM  .GE.  0)  AND.  (ABS(YD)  .GT.  0.00011)  GO  TO  190 
IF! (ISYMM  .Eq.  1)  .AND.  (ABS(YD*1.0)  .GT.  0.0001))  GO  TO 
DSUM  =  DELTA! 1) 

DO  35  K  =  2, NROWS 
YL  a  Y!K)  ♦  DELTA! K ) 

IF!  ABSl  YR-Yl")  ATOoWlI  GO  TO  190 

35  CONTINug  *  CELTA,K’ 

I F I ABS ( DSUM-0 . 50  )  .GT.  0.0001)  GO  TO  190 

SUM'  CTcM“4.  *  CMAC 


190 


„  CALL  TANS! TANLE.XLEAD.Y, NROWS) 

COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 

D0~90  K  =  1 .NROWS 
COMPUTE  X-COORDINATES 
NWK  =  NWIK) 

DO  50  L  =  l.NWK 

1*1*1 

ICK  =  ICTYPE(K) 

40  XBII)  a  XBW!  L  ,ICK ) 

50  CONTINUE 

COMPUTE  ALL  OTHER  PARAMETERS 

foM  * 

K8?  i 

60  KK(I )  =  ~ 

DEL! I)  a  XBII+l)  -  XB(I) 

70  5<J(  IJ.*  XLEACM K )  ♦  XBI I )  *  CHORD! K) 


lS 

t 


♦  i 
l.NWK 


f? 


DEL!  I )  a  XBII+l) 
XI!  I  I  *  XLEAD(K) 
ITYPEII)  =  10 
CONTINUE 


REDEFINE  THE  LAST  OEL  IN  THIS  SECTION, 
DELI  I )  a  1.00  -  XBI I ) 

IWK  a  IWIK) 

ITYPEIIWK)  a  20 
90  CONTINUE 
NWT  a  I 

CONSTRUCT  THE  ELEMENTS  ON  THE  JET  SHEET 


AND  DEFINE  THE  L.E.  EVD  TYPE 


COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 
IF! JETFLG  .NE.  0)  GO  TO  180 
DO  170  K  *  1 .NROWS 
COMPUTE  X-COORDINATES 

100  NJK  *  NJ(K) 

IFINJK  .EG.  0)  GO  TO  170 
DO  120  L  a  l.NJK 
I  a  I  ♦  1 

.  ZJK  a  IJTYPE(K) 

110  XBII )  a  XBJI L.IJK ) 


170 


UU  U<JU  uo  u  u  ou  o  UUUUOI 


120  CONTINUE 

COMPUTE  ALL  OTHER  PARAMETERS 
1=1-  NJK 
130  IJIK)  =  I  ♦  1 
g0_lfc0  L  =  1»NJK 

140  KkFi)  t  k 

DELI  I  )  =  XBiI+1)  -  XB1 1  ) 

150  XII II  *  XLEAD(  K )  +  XBII)  *  CHORD!  K) 

ITYPE!  I)  =  10 
160  CONTINUE 

REDEFINE  ^THE  LAST  DEL  AND  EVD  TYPE  AND  THE  D  VALUE  FOR  THIS  SECTION 
iTYPfc! I  )  =  30 

170  tiHiaulF,rf  • XTRAIL<K) 

180  NMAX  =  I 

IF1NMAX  .GT.  600)  GO  TO  210 
NJT  =  NMAX  -  NWT 
IR  =  1 
RETURN 


PRINT  A  MESSAGE  AND  QUIT. 

/38X.44HPLEASE  CHECK  YOUR  SECTION  LOCATION  (Y)  INPUT) 


AN  ERROR  HAS  OCCURED. 

190  WRITE! 6,  200  I 

200  FORMAT  1 1H1. - 

IR  =  2 
RETURN 

210  WRITE! 6.  220  )  NMAX 

220  FORMAT! 1H1/4SX, 14, 21H  IS  TOO  MANY  ELEMENTS) 

RETURN 

END 

SUBROUTINE  BOXJINEWMAX.IR) 

THIS  SUBROUTINE  COMPUTES  THE  JET  BLOWING  FACTOR  CMUP 

COMMON/MARK/NROWS .NROWSJ .NWT ,NJT .NMAX.NWI 40  I.NJI4Q  ),IW1 40 ),IJ(40  ) 
COHMON/GEOM1/Y ( 40  I  > CHORD l 40  I  .DELTA! 40 ) ,XB( 600 ) ,XI(660 ),DEL(600 ), 

1  _  Dl 40  I  »KK ( 600  )  .ITYPE ( 600 ) 

COMMON/ JCASE/CMU! 40  I ,CMUP! 40 1 ,CMUPP( 40 ) 

COMPUTE  THE  NEW  CMUP  AND  SAVE  THE  OLD  VALUES  AS  CMUPP 
10  NEHMAX  =  NMAX 
ICOUNT  =  0 
DO  30  K  =  l.NROWS 
CMUPP I K  )  =  CMUP! K ) 

IF1NJIK  )  .EQ.  0)  GO  TO  30 
IFICMUIK)  .LT.  0.0001)  GO  TO  20 
CMUP! K  )  =  2.00  /  (  CHORD (K)*CMU(K)) 

GO  TO  30 

20  ICOUNT  =  ICOUNT  ♦  1 
CMUPIK)  =  0.00 
30  CONTINUE 

PRINT  Si  ‘“=>  ENTEfWoR  NI'S“  J£T  BL0WrMG  COEFFICIENTS?' 

35  IFA?ANs’eC)A^Y'  )  THEN 

else"if  i  ai$s4eq.*  'N^J^THEN  *  >HR0NS  * 
elIe  to  45 

PRINT  ».  '  INVALID  RESPONSE  -  REENTER.1 
GO  TO  35 
END  IF 

1010  FORMAT! A4) 


40  FORMAT!  1H1,40X»10!4H#***)/  41X, 

I  , :  KW*  "41*’ 
4S  ffiffifflf •»:  6o 

„  NEHMAX  =  NWT 
50  IR  =  1 
RETURN 


10 (4H***# )// 


PRINT  A  MESSAGE  AND  TRY  AGAIN. 

INPUT. * 


s  - - 

V^»r!l!B>lgl4cSPH)3Ll(lES'iS!M8?,M“ 

***** 

END 

SUBROUTINE  TANS! TAN, X,Y»NR0HS ) 

THIS  SUBROUTINECOMPUTE 


THE  TANGENT  OF  THE  LEADING  OR  TRAILING  EGDE 
- — -  -  ‘CURATE  FOR 


SWEEP  ANGLE  AT  TH^ENTlRLINE  OF  EACH  SECTION.  IT  IS  ACCURA1 
ECTIONS  WITH  STRAIGHT  EDGES  IN  GROUPS  OF  THREE  OR  MORE. 

T  IS  ONLY  APPROXIMATE  FOR  CURVED  EDGES. 

I  MAY  RESULT  IN  ERRORS  FOR  SECTIONS  ADJACENT  TO  WING  BREAKS* 
F  STRAIGHT  EDGES  ARE  IN  ADJACENT  GROUPS  OF  ONLY  ONE  OR  TWO. 


DIMENSION  TAN! 40 )*X(40 ) >Y!40 ),SI 40 ) 
SLOP! XR.XL  *YR>YL )  «  (XR-XL)  /  IYR-YL) 

1>NR0HS 


DO  50  K 
KR  =  K-l 
KL  =  K 
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noon 


IF(K  .ST.  1)  GO  TO  30 
KR  *  1 
KL  *  2 

30  S(  K)  =  SLOP!  Xt KR )  >X(  KL )  »Y(KR  )»Y(KL ) ) 
50  CONTINUE 

DO  ZOO  K  s  I.NROWS 
IFI K  .LT.  3 )  GO  TO  150 
IF  I  K  .EQ.  NROHSI  GO  TO  150 
IF( K  .EG.  (NROWS-1))  GO  TO  160 

C  CHECK  NHETHER  THE  RIGHT  OR  LEFT  SIDES  ARE 
IF(  ABS(  Si  R  )  -  S(K-1»1  .LT.  0.0011  GO. I 
IF  ABS(S(K*1)  - 

C  NEITHER  SIDE  IS 

IFIK  .EQ.  31  __ 

JF(K  .EG.  (NROMS 
IFIABSISIK- 
IF(ABSIS(K+^ 

c  ?-z~oo 

c  iI8Eta  tDiWs STRAIGHT 

GO  TO  200 

c  il8Ei^{)EeG!«ifi!TRAIGHT 

200  CONTINUE 
RETURN 
**** 

END 


i)  -  s<K*2n  ;  u:  8°J«5n-GO-Ti 

S  CONCLUSIVELY  STRAIGHT  -  CHEC 
- -?))  GO  TO  150 


MIGHT 

50 

'FURTHER  LEFT  AND  RIGHT 


:!!£;!{!  8:881?  P  ?8  118 

SHAPE  CANNOT  BE  DETERMINED  -  GIVE  UP  ANI 


0  TAKE  THE  AVERAGE 


SR0UT1NE  INCASE ( LCASE .NOALFA ) 

THIS  SUBROUTINE  READS  THE  FUNDAMENTAL  GEOMETRIC  CASE  DATA 
CHARACTERS  ANS 

^ST?ta?/4SS,.S8f  tSWf 

COMMON/INO AT /LUN 
DIMENSION  NI( 10  )  > DUMMY! 40  ) 

I F 1 1  LCASE  .EQ.  1)  .AND.  (NOALFA  .GT.  OH  RETURN 


CLRSCRN 


_  WRITE! 6,5)  LCASE 

5  FORMAT! ix,4X> ‘FUNDAMENTAL  CASE  CONTROL  FLAGS  FOR  CASE 
PRINT  # 

PRINT  *,  ■==> 

♦  FLAGS.' 

PRINT  *,  * 

♦ARIATIONS* 

PRINT  It,  • 

PRINT  #,  • 

+PRiNT  * 

PRINT  »,  1 

PRINT  *,  1 
♦INCLUDED’ 

10  CONTINUE 

"READ"FUNDAMiNTAL”cAsi-CONTROL-FLAGS 

20  READTC5,’(A1^  'lAANSSPANW1SE  THIST  OISTRIBUTION?  (Y  OR  N)’ 

ifi«e?-l4» 
el!^It^n8-e<,-,n')  then 

ELSE 

PRINT  #,  •  INVALID  RESPONSE  -  REENTER.’ 

GO  TO  20 
END^IF^ 

PRINT , 5 * . .  YA?L.LEADING  EDGE  VERTICAL  DISPLACEMENT?  (Y  OR  N)’ 
READ  (5,  MAI)'  )  ANS 
IF  IANS. EQ. ’Y’ I  THEN 
INHITE  »  LCASE 
ELSE  IF  (ANS.EQ.'N’l  THEN 
INHITE  *  0 
ELSE 

PRINT  #,  *  INVALID  RESPONSE  -  REENTER.’ 

I»|V0  li 

« 0E,LlCTICW  ,Y  * 

ELSE  IF  (ANS.EQ.’N’I  THEN 
INDELJ  *  0 

Hint  «. 

GO  TO  40 
END  IF 


12,*. ’ ) 

THE  FOLLOWING  QUESTIONS  ARE  USED  TO  SET  THE  CONTROL 
THESE  FLAGS  IDENTIFY  THE  TYPES  OF  LINEAR  GEOMETRIC  V 

T8EBiN5l!iLa?E8TlSc^8SsIu5EASt«iftbYc^c6DEo  AS  CASE 

A  NO  RESPONSE  INDICATES  THAT  THE  VARIATION  MILL  BE  O 

A  YES  RESPONSE  INDICATES  THAT  THE  VARIATION  HILL  BE 
AND  THAT  YOU  HILL  PROVIDE  THE  REQUIRED  AMPLIFYING  IN 


30 


INVALID  RESPONSE  -  REENTER.’ 
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PRINT  m 

PRINT  *,  *=  =  >  VARY  THE  MING  CAMBER?  (Y  OR  N)' 
50  READ  (5, MAI)'  )  ANS 
IF  ( ANS.EQ.  Y*  )  THEN 


INCAMB  =0 


=  LCASE 

ANS. EG. ‘N1  )  THEN 


PRINT  *.  '  INVALID  RESPONSE  -  REENTER. * 

56 

PRINT  *,  *==>  VARY  THE  WING  HINGE  DEFLECTION?  (Y  OR  N)‘ 

60  fPh&gWIfflN 

ELSlPlF*)  ANjj^EQ^  *N* )  THEN 
|NBETA  ^ 

PRINT  #.  1  INVALID  RESPONSE  -  REENTER. 1 

mg°i P  '* 

PRINT  * 


SUMMARY  OF  FUNDAMENTAL  CASE  CONTROL  FLAGS  DATA 


CALL  CLRSCRN 

D  FORMAT*  f ixT^SUMMARY  OF  FUNDAMENTAL  CASE  CONTROL  FLAGS  DATA?*  f 
1/,1X,2SH==>  ENTER  Y  =  YES)  N  =  NO) 


INVALID  RESPONSE  -  REENTER.1 


1/,1X,25H==>  ENTER  Y  =  YES)  N  =  NO) 

READ  15,*  (All*  )  ANS 
IF  (ANS.EQ. *N* 1  GO  TO  70 
CALL  CLRSCRN 
WRITE! 6,6)  LCASE 

i  FORMAT) IX, 2X, 'CONTROL  FLAGS  FOR  FUNDAMENTAL  CASE  ',12'.*) 

PRINT  * 

PRINT  *,  ’  A  NONZERO  FLAG  INDICATES  THAT  THE  LINEAR  VARIATIO 
PRINT  *,  *  MILL  BE  INCLUDED.  THE  VALUE  OF  A  NONZERO  FLAG' 
PRINT  «,  '  HAS  BEEN  SET  TO  THE  FUNDAMENTAL  CASE  IN  WHICH  IT* 
PRINT  *,  *  IS  INCORPORATED,  HOWEVER  THIS  CHOICE  IS  ARBITRARY 
PRINT  * 

WRITE  (6,581) 

WRITE  (6,582)  INTMST.INHITE.INDELJ, INCAMB, INBETA 


VARIATION* 
i  FLAG* 


ARBITRARY. 


WRITE  (6,582)  INTMST.INHITE.INDELJ, INCAMB, INBETA 
WRITE  I  6,590  ) 

READ  (5, MAI)'  )  ANS 
IF  ) ANS . EQ . ' Y  * )  GO  TO  10 

31  FORMAT  ( IX, 'INTWST* ,5X, 'INHITE  * ,5X, ' INDELJ* ,5X, ‘INCAMB* ,5X, 

♦  ' INBETA  *  ) 

32  FORMAT  ( IX, 5( ZX.I2 , 7X )) 

90  FORMAT  ( //,1X,42HCHANGE  FUNDAMENTAL  CASE  CONTROL  FLAGS  DATA?, 
1/,1X,25H=*>  ENTER  Y  =  YESj  N  =  NO) 

70  CONTINUE 

•“Biff.  MS}  ll?  )  INTWST , INHITE, INDELJ, INCAMB, INBET A 
601  FORMAT! 5IZJ 


REAO  SECTIONAL  TWIST .HEIGHT  ANO  JET  OEFLECTION  DATA 
IF) INTWST  .EQ.  0 )  GO  TO  85 


TWIST  DISTRIBUTION  CARDS 


^LtCLRSCRN 

PRINT 


PRINT  *,*  SPANWISE  WING  TWIST  DISTRIBUTION  VALUES* 

PRINT  #,*  THE  SECTIONAL  TWIST  IS  THE  WING  TWIST  AT  THE  SECTION* 

PRINT  *,*  CENTERLINE  WITH  RESPECT  TO  THE  WING  REFERENCE  PLANE.* 
PRINT  * 

PRINT  '  POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE' 
jJIUNT  *,*  ANGLE -OF-ATTACK  (LEADING  EDGE  UP).* 

PRINT  *,*■■>  ENTER  TWIST,  SECTIONAL  WING  TWIST,  IN  DEGREES.! R)' 
PRINT  * 

DO  80  K  =  l.NROWS 
WRITER, 12)  K^NROVIS 

12  FORMAT f IX, '  TE&TERK£ECTION  TWIST  FOR  SECTION  *,I2,'  OF  *,I2,*  SECT 

SUMMARY  REQD 
WRITE  TO  OATA  FILE 

WRITE! LUN,  701  )  (TWIST!*, LCASE ),K*1,NR0WS) 

701  FORMAT )8FlQ. 6) 

85  IF! INHITE  .EG.  0)  GO  TO  95 


THE  SECTIONAL  TWIST  IS  THE  WING  TWIST  AT  THE  SECTION* 
CENTERLINE  WITH  RESPECT  TO  THE  WING  REFERENCE  PLANE. * 

POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE ' 
ANGLE -OF-ATTACK  (LEADING  EDGE  UP).' 


LEADING  EDGE  VERTICAL  DISPLACEMENT  CARDS 


CALL  CLRSCRN 
PRINT  » 

PRINT 
PRINT  » 

PRINT 
PRINT  *, 
PRINT 
PRINT  « 

PRINT  *,' 
PRINT  *, * 


LEADING  EDGE  VERTICAL  DISPLACEMENT' 

MUST  BE  NORMALIZED  BY  THE  SECTIONAL  CHORD.' 

KAEcSSE|gvgftEWHS  »Sg«h»  .T8E « • 
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PRINT 

PRINT 


*,' 

_ _  *, ' 

PRINT  *,' 

PRINT  »,•==>  ENTER  HL,  NORMALIZED  LEADING  EDGE  DISPLACEMENT . I R ) ‘ 
PRINT  * 

DO  90  K  =  l.NROWS 


WRITE) 6,22)  K.NROWS 
READI5,  *  )  HLIK.LCASE 
FORMAT) IX,'  ENTER  DIS 


22  _  _ 

♦  '  SECTIONS.*,/) 
90  CONTINUE 
PRINT  * 

SUMMARY  REQD 

WRITE  TO  DATA  FILE 
- 1,  701  ) 


DISPLACEMENT  FOR  SECTION  ',12,'  OF  *,I2, 


WRITE) LUN, 
95  IF)INDELJ 


(HLIK.LCASE ),K=1,NR0WS) 
EQ.  0)  GO  TO  105 


JET  DEFLECTION  CARDS 

'AtCcLRSCRN  . 

JET  DEFLECTION* 


£rInt  * 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
“RINT 
PINT 
.RINT 
PRINT 
PRINT 


*,' 

* 

...  *,* 
NT  *,* 
*»' 
*,' 
*,' 
* 

*»' 
K 

*, 

* 


ION  OFJET* 


THIS  DATA  INDICATES  THE  SPANWISE  VARIATION  _ 
DEFLECTION  RELATIVE  TO  THE  TRAILING  EDGE.  THE  JET* 
TURNING  ANGLE  IS  MEASURED  RELATIVE  TO  THE  MEAN  LINE' 

VALUES  ARE  INPUT  WORKING* 

FROM  THE  RIGHTMOST  JET  TOWARDS  THE  CENTERLINE.” 


ROM  THE  RIGHTMOST  JET  TOWARDS  THE  CENTERLINI 
A  DOWNWARD  DEFLECTION  IS  DEFINED  AS  POSITIVE.' 
==>  ENTER  OJ,  THE  JET  TURNING  ANGLE,  IN  DEGREES. (R) 


Sl^lOO  K  =  1  iNROWSJ 
WRITE) 6,32)  K.NROWS J 


READ) 5,  *  )  DJI K.LCASE ) 

32+F9RHAT(lXi*  ENTER  DEFLECTION  FOR  JET  SECTION  *,I2,*  OF  *,I2, 
100+C0NT1NUE  C  '  ’ 


CONTINUE 
PRINT  * 

SUMMARY  REQD 


WRITE 


E  TO  DATA  FILE 

WRITE) LUN,  701  )  ( DJ) K.LCASE ) ,K=1,NR0WSJ ) 

105  IF) INCAMB  .EQ.  0 )  GO  TO  160 
INPUT  CAMBER  TYPE  OF  EACH  SECTION 


WING  SECnON  CAMBER  TYPE  CAROS 

call'clrscrn  . 


-ALL  - 
PRINT  * 


WING  SECTION  CAMBER  TYPES* 

THIS  DATA  IS  SIMILAR  TO  TH! 

IN  ORDER  FOR  SECTIONS  Tl - 

THEY  MUST  BE  OF  THE  SAMI 


DATA. * 
R  TYPE* 
‘TYPE  )  * 


’  A  SECTION  WITH  NO  CAMBER  HAS  A  TYPE  OF  0  (ZERO).* 

*  A  MAXIMUM  OF  10  CAMBER  TYPES  IS  ALLOWED.* 

*==>  ENTER  ICT,  THE  CAMBER  TYPE  NUMBER  OF  EACH  SECTION. 


PRIN 
PRINT 
PRINT 
NCT  =  0 

DO  110  K  *  l.NROWS 
WRITE) 6,42)  K.NROWS 
READ)  5,  *  )  ICTIK) 

‘  IminI. number  - 

!?: 


PwWI _ _  .  __  _ _ 

IISES 


iaxsm 

NI(ICK)  =  NWIK) 

ScHfN 


NCT)  NCT  =  ICTIK) 


FoSMAT)lX,fX 

FORMAT) XX,* 


ruKTwiiiM'  en 

coSM"4'*'* 

MARY  REQD 
101  FORMAT) 4012  I 


A  MAXIMUM  OF  10  CAMBER  TYPES  IS  ALLOWED.’ 

*****  WARNING  ****** 

YOU  MAY  ENTER  ONLY  ONE  MORE  DIFFERENT  TYPE.' 


41 

42 

110 

SUMMARY  REQD 


.29HNUMBER  OF  WING  CAMBER  TYPES 
ENTER  CAMBER  TYPE  FOR  SECTION  1 


13) 


»,I3 

,12, 


OF  *  ,12, 


)  <ICT(K),K*1,NR0WS) 


CAMBER  ANGLES  FOR  EACH  CAMBER  SECTION  TYPE 


EAkL_CLRSCRN 
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THE  TRAILING 
ONLY  IS  ENTER 


GE  DEFLECTION  ANGLE  DUE  TO  CAMBER' 
HERE.  THESE  VALUES  ARE  USED  TO' 


FROM  THE  RIGHTMOST  JET  TOWARDS  THE  CENTERLINE . 

POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE* 
ANGLE -OF-ATTACK  (LEADING  EDGE  UP).' 


C  TRAILING  EDGE  CAMBER  ANGLE  DATA  CASE  WITH  JETS  AND  CAMBER 


CALL  CLRSCRN 
PRINT  * 

PRINT  *,  '  TRAILING  EDGE  CAMBER  ANGLE  FOR  WINGS  WITH' 

PRINT  *,  '  JET  SHEETS  AND  CAMBER.' 

PRINT  *,  *  THE  TRAILING  EDGE  DEFLECTION  ANGLE  DUE  TO  CAMB 

PRINT  *,  '  ONLY  IS  ENTERED  HERE.  THESE  VALUES  ARE  USED  T 

PRINT  #,  '  DETERMINE  THE  TOTAL  JgT  DEFLECTION  ANGLE  WITH' 

PRINT  RESPECT  TO  THE  FREESTR . . 

PRINT  FROM  THE  RIGHTMOST  JET 

PRINT  * 

PRINT  k,  '  POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE' 
PRINT  #,  '  ANGLE -OF -ATTACK  (LEADING  EDGE  UP).' 

PRINT  *,'«>  ENTER  ACTE,  TRAILING  EDGE  CAMBER  ANGLE ,( DEGREES ).( R ) ' 

C  READTHE  TRAILING  EDGE  CAMBER  ANGLE  FOR  EACH  JET  SECTION 
00 

WRITE! 6 ,62  )  K 
WRITE! 6,63) 

140  CONTINUE*  *  *  ACTE‘K’ 

II  format! ix! •  enterecamIerIS!glemfor  tAaIling  EDGE  ',/) 

8  SUMMARY  REQD 

8  WRITE  TO  DATA  FILE 

WRITE! LUN,  701  )  ( ACTE(K  )  »K=I»NROWSJ  ) 

8  STOPPED  HERE  (JAC)  -  CASES  WITH  JETS  HAVE  NOT  BEEN  FINISHED. 

8"'THE~HiNGE"LOCATiON7'TYPE"AND"TURNiNG"ANGLE~DATA'"”~"*‘* 
c  ............. 


ROUTINE  OUT  I! LCASE  ) 


THIS  SUBROUTINE  PRINTS  OUT  THE  GEOMETRIC  DATA  DERIVED  FROM  THE 
SECTIONAL  METHOD  INPUT 


,IJ(40) 


?! :§gf  f  S8  ^  t?iSo  i 

XCOW«N/GEOM2/XLEADf40  )tx?^ilLT40)t?ANLEt  40 )  ,TANTE(  40 ) 
C0MM0N/FCASE3/EPS!  400 , 10 ) ,BETA( 600 , 10 ) ,THETAl 40 , 10 )  ,THS( 40,10) 
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COMMON/INOAT A/ARE .SPA  >CRE ,XM,CMA ,XC ,NRO ,NC ,ISY >IPR .JET  »I6T .ZHI 


PRINT 

18. 


'0RMAT(1H1,39X,101 . 

40X.40H*  EVO . 


GEOMETRIC  PARAMETERS 


4H**** )/ 


39X,lt . 

_ i  EVO  JET  -  WING 

40X,10!4H****)///20X,20A4) 
CMA_=  CMA£  *  SPA  /  ~  ~ 


COMPUTER  PROGRAM  */ 


30. WRITE (< 


_ _  --  )  aratIo  ^dl^xc .spa.cref ,CRE .XMC .XM.CMAC .CMA.ARATZO. 

40. FORMAT ( lHO//54XV4HUSdOif ixISHINPUT  / 

1  41X.6HAREA  =,2Fi5.6  /  41X.4HSPAN  =,2F15.4  / 

f  4IX.4HCREF  r^Fli.?  /  42X,5HXMC  =,2Fl|.4  / 


W-iilffc  * 


4  4; 

^ WRITE! 6, 

SO  jFOWIAT!  1H0/ 

4 

5 

6 

40  J  =  0 
JJ  *  NKT 

PRINT. FUNDAMENTAL  CASE  HEADER 


fIs.4  / 

j^PRINT  »IPR ,  JETFLG ,  JET , 


1hipr!n? 

I.8HIGTYPE  =  ,IS,7X,3 


* 

3  / 


sM*  I'M  / 

ME  NTS  =,I4) 


WRITE! 6.  70  )  LCASE 
70  FORMAT!  1H1.23X.Ihm.  191  4H»***)/ 

1  24X,54H#  ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  C. 

2  _ .17H  FUNDAMENTAL  CASE, 13, 3H  */24X ,  1H* , 19  < 4H**** ) ) 


FUNDAMI 

BO' 255  K  =  l.NROWS 

PRINT  SECTIONAL  DATA 
"ITE16,  8f  . 


CASE  DATA  FOR, 


WRITE! 6,  80  )  K ,Y( K  ) .DELTA! K  l.XLEAD! K  1 .XTRAILI K  ) .CHORD! K  l.TANLE! K  1 
80  FORMAT! lHO.llH***  SECTION, 13 ,4H  *#*,2X,3HY  =,F10.4,2X,7HDELTA  =, 

1  F10.6^2X^|HXL|A0  = ^FIO . 6 ,2X,8HXTRAIL  =,F10.4,2X,7HCH0RD  =,F10.6, 


PRINT  CHORDWISE 
NHK  =  NW(  K  ) 


90 


DATA  ON  WING 


100 


»!•- 

. 


WRITE! 6 
FORMAT! 


,  100  )  i: 

,..iio.  )  <: 


GO  TO 
XI!  J*l 


}4X»" 2BXl tiof 1 


12L§1 


urn  tf  if 

110  FORMAT! 1H  ,*  ...  _ 

120  FORMATfiHX,13X,3HDkuiOFi 
ho  h  60  *° 1 


,NWK  I 

17X.10F11 . 


4) 


NWK) 

/17X.10F11.4 ) 
>NWK  I 

/17X.10F11.4 ) 


170  FORMAT! lH  ,12X,4HBE 
WRITE!  6.  180  I  (ITYL 
180  FORMAT!  lH  ,12X,4HTYPI 
j  =_J  ♦  NWK 

f^l NWK  .GT.  91 

IWllsl  Wl 


«fl!t Vii'A 

PE  ,101 3X,I2,4X  1. 


1/17X.1C!  3X,I2,4X) ) 


IL  *  2 
♦  4  ♦  4*1 L 
1  I LINES  =  ILINES 


PRINT  CHORDWISE 

IHNJK^GT  ’  0)  GO  TO 
190  FORMAT f Ih  ?8X,'l9HTHIS 

fc^Mo^8  *  1 

200 
il0i 


♦  2*1  L 

DATA  ON  JET 
200 

ROW  HAS  NO  JET) 


5X.4HDJ 


WRITE! 4, 
WRITE! 4, 
220  WRITE!  4, 
WRITE! 4, 
JJ  *  JJ  ♦ 


230 


)  I XII JJ*L )»L=1,NJK 1 
1  (DEL!  JJ+L),L=1,NJK) 


tU  ,  IUCUJJ.kl,L-iirWM 

70  1  ( BETA! JJ*L. LCASE ),L=1,NJK> 
80  )  I ZTYPE I J  J+L 1 , L=1 ,NJK 1 
NJK 


ILINES 


♦  2*1  L 


XL  * 2 


*  NEXT  ♦  2*1 L 
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%  rai^o,“’i2’F‘-4” 

8  OUTPUT  A  9  CARO  AFTER  NCC  SETS  OF  DATA  HAVE  BEEN  INPUT 
c  \°0°2  ' 


UBROUTINE  BLOMINI JETFLG.IR > 


2e^SrS^,^ctional  jet  BL0W1NG  rates 
ra/jCAs^Syf^^i^o  ftSUV&Y"  40 1  ,NJ‘ 40 1  ,1Ht 40 1  »IJt  40 » 

_ :  CMUI40) 


10N/INO  AT /LUN 


C  REA 


INS  WHICH  HAVE  A  JET 
I0WSJ ) 


Return 

8  rearrange  the  data  into  the  proper  sequence 

°  DO  50°K  a  l.NROHS 
40  CMIHK)  *  0.00 

IFfNJIK  t  . EQ.  0)  GO  TO  50 


IFfNJIK  (  . EQ.  0)  GO  TO  50 
KP  =  KP  ♦  1 
CMUIK)  =  DCMUIKP) 

50  CONTINUE 

RETURN 


AN  END  OF  FILE  HAS  BEEN  READ.  THIS  RUN  IS  COMPLETELY  FINISHED. 
60  WRITE I  6 »  70  ) 

70  FgRMATI  1H1///41X.37HN0  MORE  CMU  CASES  HAVE  BEEN  REQUESTED) 


ETURN 

NO 
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APPENDIX  E.  FIGURES  GENERATED  USING  DISSPLA 


PROGRAM  PANEL-  NACA  0012  AIRFOIL 
g _ 


t - - -  ,  -  - - — -  -  .  . t 

0.000  0.120  0.230  0.370  0.000  0.020  0.700  0.070  1.000 

X/C  (CHOP.DWISE  LOCATION) 


Figure  26.  Program  PANEL-  Shape  Generated  Using  Airfoil  Coordinates  Data  File 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  surface  coordinates  for  the  airfoil  were  input  to  the  PANEL 
program  using  an  input  data  file  containing  28  surface  points. 
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PROGRAM  PANEL-  NACA  0012  AIRFOIL 

EQUATION  GENERATED  SHAPE 

£ 

o 

8 

© 

f*. 

1- 

g 

ef. 

— 

£ 
s 
<  © 

- - - 

WO 

S* 

8 

© 

i 

£ 

c 

o.ooo  o.utt  oJeoo  o.»»  o.too  o.u*  o.no  o.trt  t. 

X/C  (CHORDWISE  LOCATION) 

Figure  27.  Program  PANEL-  Shape  Generated  Using  Internal  Equation  for 
NACA  0012 


This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  surface  coordinates  for  the  airfoil  were  generated  by  the 
PANEL  program  using  the  internal  equation  for  NACA  XXXX  series  airfoils.  Twenty 
points  were  used  to  describe  the  surface.  Despite  using  fewer  points  to  define  the  sur¬ 
face,  there  is  virtually  no  difference  between  this  plot  and  the  one  on  the  preceding  page 
which  used  actual  airfoil  surface  data. 
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PROGRAM  PANEL-  NASA  LS(l)-0013 


Figure  28.  Program  PANEL-  Shape  Generated  Using  DATA  Statements  for 
NASA  LS(1)-0013 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  surface  coordinates  for  the  airfoil  were  input  to  the  PANEL 
program  using  the  DATA  statement  entry  method.  The  DATA  statements  for  the 
NASA  LS(1)-0013  within  the  PANEL  program  contain  coordinates  for  2S  surface  lo¬ 
cations.  This  plot  is  nearly  identical  to  that  found  in  Ref.  18. 
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NACA  0012  &  NASA  LS(1)-0013 

h - - - - - - 


T  V  i  "  "" 1  —  —  —  1  ■  -  i'—  1  .  —  'f 

0.000  0.126  0-250  0.976  0.500  0  026  0.750  0.075  1.000 

X/C  (CHORDW2SE  LOCATION) 


Figure  29.  Program  PANEL-  Comparison  of  Shapes  Generated  for  NACA  0012 
and  NASA  LS(1)-0013 

This  figure  compares  the  shapes  of  the  NACA  0012  and  NASA  LS{1)-0013  airfoils. 
The  actual  surface  coordinates  were  used  for  this  plot.  Again,  this  plot  is  nearly  identical 
to  a  similar  plot  found  in  Ref.  IS. 
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Figure  30.  Program  PANEL-Surface  Pressure  Distribution  for  NACA  0012 


This  figure  was  generated  using  the  D1SSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  pressure  distribution  is  for  the  NACA  0012  airfoil  defined 
by  an  input  data  file  containing  28  surface  points  at  an  angle  of  attack  of  six  degrees. 
The  results  of  the  program  run  are  repeated  below. 


DATA  FILE:  PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  *  6. 000 

CD  *  0.00387  CL  *  0.  70980  CM  *-0. 17750  CMC4  *-0. 00092 
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Figure  31.  Program  PANEL-  Surface  Pressure  Distribution  for  NACA  0012  Gen¬ 
erated  by  the  Internal  Equation 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  pressure  distribution  is  for  the  NACA  0012  airfoil  defined 
by  the  internal  equation  using  28  surface  points,  at  an  angle  of  attack  of  six  degrees. 
The  results  of  the  program  run  are  repeated  below,  A  slight  difference  is  noted  between 
the  plots  and  the  values  obtained.  This  is  due  largely  to  the  difference  in  the  number 
of  data  points  used  and  the  spline  interpolation  used  by  the  plotting  routine. 

DATA  FILE:  PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  -  6. 000 

CD  ■  0.  00721  CL  *  0.  72235  CM  —0. 18377  CMC4  *-0.  00398 
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PROGRAM  PANEL-  NASA  LS(l)-00l3 


Figure  32.  Program  PANEL-  Surface  Pressure  Distribution  for  NASA  LS(1)-0013 


This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  pressure  distribution  is  for  the  NASA  LS(I)-00I3  airfoil  de¬ 
fined  by  a  set  of  DATA  statements  containing  28  surface  points  at  an  angle  of  attack 
of  six  degrees.  The  results  of  the  program  run  arc  repeated  below. 


DATA  FILE:  PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  «  6.  000 

CD  *  0.  00324  CL  *  0.  69366  CM  *-0. 16505  CMC4  *  0.  00750 
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SR4NWISE  LIFT  DISTRIBUTION 

USING  VORTEX  LATTICE  SOLUTION 

COSINE  SPACING 
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Figure  33.  Program  YORLAT-  S panwise  Lift  Distribution  Using  Cosine  Spacing 

This  figure  was  generated  using  DISSPLA  and  running  the  PLOTSPAX  program 
on  the  IBM  mainframe  computer.  The  span  wise  lift  distribution  is  shown  for  a  flat 
rectangular  wing  of  aspect  ratio  2  at  an  angle  of  attack  of  six  degrees.  The  results  of  the 
YORLAT  program  run  are  repeated  below.  (The  PLOTSPAX  program  is  located  on  the 
AERO  disk  of  the  IBM  mainframe.) 


**  COSINE  GRID  SPACING  ** 


NX*  5  NY*  10  ASPECT  RATIO  -  2. 00  ANGLE  OF  ATTACK  *  6. 00 


CL  *  0.  25905 

CD  *  0. 0106492 

CD/CL2  *  0. 1587 
CMLE  *  -0.055061 
XCP  *  0.21255 
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SPANWISE  LIFT  DISTRIBUTION 

USING  VORTEX  LATTICE  SOLUTION 
UNIFORM  GRID 


NX=5  ! 


!N*«10  ! 


j  ASPECT  RATION  2.00 


i  ANGLE -OF  ATTACK®  ©330 


0.0  0.1  0.2  0.3  0.4  05  0.6  0.7  0.B  0.9  10 

y/c  (Span  station  as  fraction  of  chord) 


Figure  34.  Program  V'ORLAT-  S panwise  Lift  Distribution  Using  Uniform  Grid 


This  figure  ivas  generated  using  DISSPLA  and  running  the  PLOTSPAX  program 
on  the  IBM  mainframe  computer.  The  spanwise  lift  distribution  is  shown  for  a  flat 
rectangular  wing  of  aspect  ratio  2  at  an  angle  of  attack  of  six  degrees.  The  results  of  the 
V'ORLAT  program  run  are  repeated  below. 


**  UNIFORM  GRID  SPACING  ** 


Vi 


r 


NX*  5  NY*  10  ASPECT  RATIO  *  2. 00  ANGLE  OF  ATTACK  *  6. 00 


CL  *  0.  25711 

CD  *  0.  0105673 

CD/CL2  *  0. 1598 
CMLE  *  -0. 054301 
XCP  *  0. 21119 


A 


C 
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